9.3 Piecewise linear functions.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    337516,       7047]
NotebookOptionsPosition[    328255,       6802]
NotebookOutlinePosition[    329849,       6854]
CellTagsIndexPosition[    329806,       6851]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving piecewise \
linear functions",
  FontFamily->"Arial"]], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9, 
   3.5505952630869055`*^9}, {3.5535321133435373`*^9, 
   3.5535321173537664`*^9}, {3.5536175341411576`*^9, 
   3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
   3.559537546274218*^9, 3.5595375537746468`*^9}, {3.559593463450899*^9, 
   3.559593474371523*^9}, {3.559679574563182*^9, 3.559679595188362*^9}, {
   3.5596838349128604`*^9, 3.5596838361819324`*^9}, {3.5761238496568203`*^9, 
   3.5761238638668404`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.55396602222933*^9, {
   3.5557245433748407`*^9, 3.5557245433748407`*^9}, {3.555724591514908*^9, 
   3.55572459285491*^9}, 3.555812607377571*^9, {3.5559627484519744`*^9, 
   3.555962760331991*^9}, {3.558897368802059*^9, 3.5588973840420804`*^9}, 
   3.558906841384453*^9, {3.5589119084815474`*^9, 3.5589119574616156`*^9}, {
   3.558912370822194*^9, 3.5589123709621944`*^9}, 3.5590664840800095`*^9, {
   3.5590665890008783`*^9, 3.5590666073072014`*^9}, {3.5590852197498875`*^9, 
   3.559085264328438*^9}, 3.5590854642548723`*^9, {3.559085723861721*^9, 
   3.559085723861721*^9}, {3.5590862853648376`*^9, 3.559086310641283*^9}, 
   3.5591548156862626`*^9, {3.5591548699553666`*^9, 3.559154870589403*^9}, {
   3.5591549061984396`*^9, 3.5591549317539015`*^9}, {3.5591565788251085`*^9, 
   3.5591565809932327`*^9}, 3.5591586582090425`*^9, {3.5591588362512255`*^9, 
   3.5591588362512255`*^9}, 3.559159102647463*^9, {3.5591674525881643`*^9, 
   3.559167469131111*^9}, 3.55932221077491*^9, {3.5595376651350164`*^9, 
   3.5595376683452*^9}, 3.5595379345404253`*^9, 3.5595831096448965`*^9, {
   3.5595831572586203`*^9, 3.5595831572586203`*^9}, {3.559583213470835*^9, 
   3.559583213935862*^9}, 3.5595844180577335`*^9, 3.5595934078157167`*^9, {
   3.5596701184955263`*^9, 3.559670132690338*^9}, 3.559768367298964*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{{3.5591674837779484`*^9, 3.559167486638112*^9}}],

Cell[TextData[{
 "Basis",
 ": If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox["u", "m"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "c"], 
    SuperscriptBox["u", "m"], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}]}]}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.559167615185465*^9, 3.559167615185465*^9}, {3.5595379858973627`*^9, 
   3.5595379865333996`*^9}, {3.5595380200123143`*^9, 
   3.5595380440306883`*^9}, {3.5595382353736324`*^9, 3.559538252001583*^9}, {
   3.559583109668898*^9, 3.559583109678899*^9}, {3.5595831572686205`*^9, 
   3.5595831572686205`*^9}, {3.5596701490142717`*^9, 
   3.5596702161081095`*^9}, {3.5597683768155084`*^9, 3.5597683781065826`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.5591550126695294`*^9, 
   3.5591550126705294`*^9}, {3.559156591839853*^9, 3.559156591839853*^9}, {
   3.5591588444326935`*^9, 3.5591588444326935`*^9}, 3.55916762349994*^9, {
   3.5595379513783884`*^9, 3.5595379717085514`*^9}, {3.559583157274621*^9, 
   3.559583157274621*^9}, {3.559670235906242*^9, 3.559670235906242*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "c"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", "u"}], 
    "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.559154948274846*^9, 
   3.559155002274935*^9}, {3.5591565928509107`*^9, 3.559156594155985*^9}, {
   3.5591586680166035`*^9, 3.5591586726508684`*^9}, {3.559158786347371*^9, 
   3.559158793576785*^9}, {3.5591674753814683`*^9, 3.5591674757534895`*^9}, {
   3.5591676484013643`*^9, 3.5591676960940924`*^9}, {3.559538091604409*^9, 
   3.5595381008469377`*^9}, {3.5595831096938996`*^9, 3.5595831096979*^9}, {
   3.5596702427486334`*^9, 3.559670253019221*^9}, {3.559768389012206*^9, 
   3.5597683904522886`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"u_", "^", "m_."}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{"D", "[", 
         RowBox[{"u", ",", "x"}], "]"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"1", "/", "c"}], "*", 
      RowBox[{"Subst", "[", 
       RowBox[{
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{"x", "^", "m"}], ",", "x"}], "]"}], ",", "x", ",", "u"}], 
       "]"}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{"m", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.5539664778523903`*^9, 3.5539664830786886`*^9}, 3.5557242440544214`*^9, 
   3.5557245691448765`*^9, {3.5588975344522905`*^9, 3.5588975719523435`*^9}, 
   3.558897610022397*^9, {3.5589068446644573`*^9, 3.5589068470444613`*^9}, {
   3.5589070612347608`*^9, 3.5589070759847813`*^9}, {3.5589120572417555`*^9, 
   3.5589120606317596`*^9}, {3.5589121924819446`*^9, 3.558912222691987*^9}, {
   3.559065229165531*^9, 3.5590652495748787`*^9}, {3.5590652998171234`*^9, 
   3.5590653428089423`*^9}, {3.5590859371329193`*^9, 
   3.5590860358745675`*^9}, {3.5590861224855213`*^9, 3.559086151274168*^9}, {
   3.559086192678536*^9, 3.559086194543643*^9}, {3.559155057209077*^9, 
   3.5591551236998796`*^9}, {3.559156618773393*^9, 3.559156623676674*^9}, {
   3.559158877734598*^9, 3.5591589386860847`*^9}, {3.5591589814645314`*^9, 
   3.559159003952818*^9}, {3.559167768452231*^9, 3.5591678235553827`*^9}, {
   3.5591679332946596`*^9, 3.5591679342247124`*^9}, {3.559182802889404*^9, 
   3.5591828033504305`*^9}, {3.559538107736332*^9, 3.5595381876549025`*^9}, 
   3.5595831572846217`*^9, 3.559583395077223*^9, {3.559583441280865*^9, 
   3.559583464776209*^9}, {3.559583535703266*^9, 3.559583598262844*^9}, {
   3.559670265653943*^9, 3.5596703155097947`*^9}, {3.559670393031229*^9, 
   3.5596703964254227`*^9}, {3.5596799630754037`*^9, 3.559679994575206*^9}, 
   3.55968761099984*^9, {3.559768394923544*^9, 3.5597684001258416`*^9}, 
   3.715475583281397*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], " ", 
    SuperscriptBox["v", "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox[
     RowBox[{
      StyleBox[" ",
       FontFamily->"Arial",
       FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
      "\[And]", " ", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
      "\[And]", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.523920541310981*^9, 3.5239205678622274`*^9}, {
   3.523920691428844*^9, 3.5239206937844477`*^9}, {3.5239214071837006`*^9, 
   3.5239214138605127`*^9}, {3.5365425710705867`*^9, 
   3.5365425710705867`*^9}, {3.5367763778751044`*^9, 3.5367763807151084`*^9}, 
   3.5393935872963257`*^9, {3.5422577123728857`*^9, 3.5422577123884854`*^9}, {
   3.544373204975227*^9, 3.544373209805234*^9}, {3.5597602982524414`*^9, 
   3.5597603113671913`*^9}, {3.5597622888582973`*^9, 
   3.5597622888582973`*^9}, {3.559768327763703*^9, 3.5597683387663317`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, {3.5192520188581386`*^9, 
   3.519252047359389*^9}, {3.5193215842126756`*^9, 3.519321601263506*^9}, {
   3.5194119314592657`*^9, 3.519411931802466*^9}, {3.5197938910231733`*^9, 
   3.519793891225974*^9}, {3.521473802252653*^9, 3.5214738265526876`*^9}, {
   3.521474098923069*^9, 3.5214741010730715`*^9}, {3.5233165069443364`*^9, 
   3.5233165069443364`*^9}, {3.523316543544388*^9, 3.523316543544388*^9}, {
   3.523318428619928*^9, 3.523318428859928*^9}, {3.5239323924621134`*^9, 
   3.5239324122429485`*^9}, 3.5239326458689585`*^9, {3.523933493309247*^9, 
   3.523933514852885*^9}, {3.524106196773529*^9, 3.5241061969451294`*^9}, {
   3.524276131468882*^9, 3.524276131796483*^9}, {3.5244283128175106`*^9, 
   3.5244283128175106`*^9}, {3.5305002027039576`*^9, 
   3.5305002032839584`*^9}, {3.531336527427523*^9, 3.531336528218661*^9}, {
   3.5393936363055983`*^9, 3.539393636495601*^9}, 3.5597602983814487`*^9, 
   3.5597603725326896`*^9, {3.5597622900843673`*^9, 3.5597622900843673`*^9}, {
   3.5597875680894713`*^9, 3.5597875693695445`*^9}, {3.5597875994392643`*^9, 
   3.5597876044205494`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, {3.5192520188581386`*^9, 
   3.519252047359389*^9}, {3.5193215842126756`*^9, 3.519321601263506*^9}, {
   3.5194119314592657`*^9, 3.519411931802466*^9}, {3.5197938910231733`*^9, 
   3.519793891225974*^9}, {3.521473802252653*^9, 3.5214738265526876`*^9}, {
   3.521474098923069*^9, 3.5214741010730715`*^9}, {3.5233165069443364`*^9, 
   3.5233165069443364`*^9}, {3.523316543544388*^9, 3.523316543544388*^9}, {
   3.523318428619928*^9, 3.523318428859928*^9}, {3.5239323924621134`*^9, 
   3.5239324122429485`*^9}, 3.5239326458689585`*^9, {3.523933493309247*^9, 
   3.523933514852885*^9}, {3.524106196773529*^9, 3.5241061969451294`*^9}, {
   3.524276131468882*^9, 3.524276131796483*^9}, {3.5244283128175106`*^9, 
   3.5244283128175106`*^9}, {3.5305002027039576`*^9, 
   3.5305002032839584`*^9}, {3.531336527427523*^9, 3.531336528218661*^9}, {
   3.5393936363055983`*^9, 3.539393636495601*^9}, 3.5597602983814487`*^9, 
   3.5597603725326896`*^9, {3.5597622900843673`*^9, 3.5597622900843673`*^9}, {
   3.5597875680894713`*^9, 3.5597875693695445`*^9}, {3.5597875994392643`*^9, 
   3.559787663789945*^9}, {3.5597876948057194`*^9, 3.5597876948057194`*^9}, {
   3.559861159425878*^9, 3.559861159647891*^9}, {3.559861533777894*^9, 
   3.559861533777894*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["v", "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5242761432469025`*^9, 3.524276143496503*^9}, {3.5242771518198743`*^9, 
   3.5242771521630745`*^9}, {3.53050021879398*^9, 3.5305002190639806`*^9}, {
   3.5313467792889757`*^9, 3.531346779609437*^9}, {3.5332483759292145`*^9, 
   3.533248378049217*^9}, {3.5361011340389395`*^9, 3.5361011342609525`*^9}, {
   3.5393936513939505`*^9, 3.539393651589962*^9}, {3.5597602987184677`*^9, 
   3.559760311575203*^9}, {3.5597622924045*^9, 3.5597622924055*^9}, {
   3.5597663431011868`*^9, 3.5597663435022097`*^9}, {3.5597855003192015`*^9, 
   3.5597855007092237`*^9}, {3.55978775164997*^9, 3.559787835942792*^9}, {
   3.559861161100974*^9, 3.559861162038028*^9}, {3.559866092364335*^9, 
   3.5598661034289684`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Piecewise linear recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"m", "=", 
   RowBox[{"-", "1"}]}]]],
 " and ",
 Cell[BoxData[
  RowBox[{"n", "=", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239219320466223`*^9, 3.523921932483423*^9}, 3.523922332636526*^9, 
   3.5240774276838474`*^9, 3.559762733210713*^9, {3.559787814676575*^9, 
   3.5597878234010744`*^9}, {3.5598661185198317`*^9, 3.5598661243191633`*^9}}],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.4964493315022907`*^9, 3.496451849815816*^9, 3.4964519519959593`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957339078770905`*^9, 
   3.495733966267172*^9}, {3.495734148157427*^9, 3.4957341584974413`*^9}, {
   3.4957346698781567`*^9, 3.495734670108157*^9}, {3.4957347778783083`*^9, 
   3.4957348688784356`*^9}, {3.4957353058790474`*^9, 
   3.4957353764991465`*^9}, {3.495735447019245*^9, 3.4957354738692827`*^9}, {
   3.495735673029561*^9, 3.495735708249611*^9}, {3.495735761689686*^9, 
   3.495735816759763*^9}, {3.519321952763323*^9, 3.5193219564137297`*^9}, {
   3.5193301751295214`*^9, 3.5193301764895234`*^9}, {3.51997092534389*^9, 
   3.519970926503892*^9}, {3.519970958153936*^9, 3.5199709599639387`*^9}, {
   3.5232193431478186`*^9, 3.5232193431478186`*^9}, {3.523219382187873*^9, 
   3.523219382187873*^9}, {3.5239242373346725`*^9, 3.5239242378182735`*^9}, {
   3.52392508992297*^9, 3.52392509564818*^9}, {3.5239302376559286`*^9, 
   3.52393025562716*^9}, {3.5240761723340425`*^9, 3.5240761723340425`*^9}, {
   3.5240785078765445`*^9, 3.5240785078765445`*^9}, {3.5240792759594936`*^9, 
   3.5240792759594936`*^9}, {3.533248403779253*^9, 3.533248403779253*^9}, 
   3.5597622925715094`*^9, {3.5597878874817395`*^9, 3.5597878874817395`*^9}, {
   3.5598661066861544`*^9, 3.5598661066861544`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["v", "u"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", "x"}], "a"]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", "u"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
   3.4957347552282763`*^9, 3.4957352122989163`*^9, 3.495735613359478*^9, {
   3.519245772243784*^9, 3.519245774883787*^9}, {3.523923312069047*^9, 
   3.5239233801163664`*^9}, 3.5239234676169205`*^9, {3.5597602987374687`*^9, 
   3.559760311604205*^9}, {3.5597665218974133`*^9, 3.559766543057624*^9}, {
   3.5597738448792686`*^9, 3.559773846432358*^9}, {3.5597878439312487`*^9, 
   3.5597878771431484`*^9}, {3.5598612755627694`*^9, 
   3.5598612761748047`*^9}, {3.559866136606866*^9, 3.5598661727818794`*^9}, {
   3.559866251168254*^9, 3.5598662542254286`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"v_", "/", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "*", 
        RowBox[{"x", "/", "a"}]}], " ", "-", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{"1", "/", "u"}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
      " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957338140769587`*^9, {3.495734137617412*^9, 
   3.4957341399074154`*^9}, {3.495734511017935*^9, 3.495734528517959*^9}, 
   3.4957347273482375`*^9, 3.495735153298834*^9, {3.495735298589037*^9, 
   3.4957353008290405`*^9}, 3.4957355751594243`*^9, {3.4957356510695305`*^9, 
   3.4957356533595343`*^9}, {3.495735877319847*^9, 3.495735880499852*^9}, {
   3.5192457788337927`*^9, 3.519245781843797*^9}, {3.5195345973873577`*^9, 
   3.519534614016987*^9}, 3.519534727507186*^9, {3.519534795242505*^9, 
   3.5195348019193163`*^9}, 3.5195348785154514`*^9, {3.5195350295705166`*^9, 
   3.5195350491641507`*^9}, {3.519535092641427*^9, 3.5195351693935623`*^9}, {
   3.519535655591216*^9, 3.5195356593664227`*^9}, {3.519606160650326*^9, 
   3.519606163090329*^9}, {3.519606452020734*^9, 3.519606460970746*^9}, {
   3.519606533840848*^9, 3.5196065552708783`*^9}, {3.5196066384009943`*^9, 
   3.519606639350996*^9}, {3.519606960391445*^9, 3.519606964641451*^9}, {
   3.519607006101509*^9, 3.519607008071512*^9}, {3.519690712415882*^9, 
   3.5196908122360215`*^9}, {3.5196913871068263`*^9, 3.519691398526842*^9}, {
   3.5196915172970085`*^9, 3.5196915212270145`*^9}, {3.519691676937232*^9, 
   3.5196917072072744`*^9}, {3.519691741697323*^9, 3.519691769957362*^9}, {
   3.519692141667883*^9, 3.519692177457933*^9}, 3.5196922088879766`*^9, {
   3.519692290588091*^9, 3.5196923019281073`*^9}, {3.5196923355481544`*^9, 
   3.5196923578281856`*^9}, {3.5196923898282304`*^9, 3.519692393298235*^9}, {
   3.519692695518658*^9, 3.5196926993486633`*^9}, {3.5196931055192323`*^9, 
   3.5196931104092393`*^9}, {3.519693151939297*^9, 3.5196931776293335`*^9}, {
   3.5196932172193885`*^9, 3.519693234669413*^9}, {3.519753326771507*^9, 
   3.5197533305155134`*^9}, {3.5198313113547344`*^9, 3.519831340838786*^9}, {
   3.519834362939569*^9, 3.51983439023713*^9}, {3.5198344273732543`*^9, 
   3.5198344481604433`*^9}, {3.5198350554380674`*^9, 
   3.5198350667580833`*^9}, {3.519972534776143*^9, 3.5199725378361473`*^9}, {
   3.519976145341198*^9, 3.5199761527812085`*^9}, {3.5200079367719154`*^9, 
   3.520007944571929*^9}, {3.5200079838683977`*^9, 3.5200080068628387`*^9}, {
   3.5200082042499847`*^9, 3.520008209163994*^9}, {3.520008268475298*^9, 
   3.520008272812105*^9}, {3.5200084631172194`*^9, 3.520008466417224*^9}, {
   3.520008565427363*^9, 3.52000858504739*^9}, {3.520008634227459*^9, 
   3.5200086454774747`*^9}, {3.520008679107522*^9, 3.520008707787562*^9}, {
   3.520009022878003*^9, 3.5200090267780085`*^9}, {3.520009114588132*^9, 
   3.520009115638133*^9}, {3.52000917751822*^9, 3.52000917788822*^9}, {
   3.520009232388296*^9, 3.520009233728298*^9}, {3.5200096803289237`*^9, 
   3.5200096817989254`*^9}, {3.5200097702990494`*^9, 3.520009789299076*^9}, {
   3.5200099246992655`*^9, 3.5200099606693163`*^9}, {3.520010018479397*^9, 
   3.5200100198093987`*^9}, {3.5200101574795914`*^9, 
   3.5200101701596093`*^9}, {3.523219291537746*^9, 3.523219307977769*^9}, {
   3.5232194303579407`*^9, 3.5232194305479407`*^9}, 3.523924040949127*^9, {
   3.523924083896003*^9, 3.523924086610408*^9}, 3.523924210381025*^9, 
   3.5239244595882626`*^9, {3.523925083277358*^9, 3.5239251500298758`*^9}, 
   3.5240762505213795`*^9, 3.524078560386237*^9, {3.524079201235362*^9, 
   3.5240792160553885`*^9}, {3.5240792615450683`*^9, 3.524079263245471*^9}, {
   3.52407931407036*^9, 3.524079315333963*^9}, {3.5240794632378225`*^9, 
   3.5240794666386285`*^9}, {3.5241038915762796`*^9, 3.524103955302392*^9}, {
   3.5241092335840626`*^9, 3.524109236189267*^9}, {3.5241093841867275`*^9, 
   3.5241094179919863`*^9}, {3.5241094771004906`*^9, 3.524109478598093*^9}, {
   3.5241592101752768`*^9, 3.524159214705283*^9}, {3.5241592921253915`*^9, 
   3.524159300245403*^9}, {3.5241593621054897`*^9, 3.5241593685654984`*^9}, {
   3.5241596320758677`*^9, 3.5241596554659004`*^9}, {3.5241597920960913`*^9, 
   3.5241597944060946`*^9}, {3.524171076647507*^9, 3.5241710855075197`*^9}, {
   3.5241902075571866`*^9, 3.5241902127207956`*^9}, {3.524190359891454*^9, 
   3.524190365991065*^9}, {3.524192455007534*^9, 3.524192459921543*^9}, {
   3.5241924983444104`*^9, 3.5241925008092146`*^9}, {3.524192578996552*^9, 
   3.524192580728155*^9}, {3.524192647355872*^9, 3.5241926520514803`*^9}, {
   3.5241926899907465`*^9, 3.5241927010667667`*^9}, {3.524192750394053*^9, 
   3.5241927779437017`*^9}, {3.5241928342598004`*^9, 
   3.5241928356014028`*^9}, {3.524192886363892*^9, 3.5241929290923667`*^9}, {
   3.5241930126929135`*^9, 3.5241930342209516`*^9}, 3.524253083175646*^9, 
   3.5242575379690695`*^9, 3.524258633652594*^9, 3.5249480915983686`*^9, {
   3.5332484110692635`*^9, 3.5332484132492666`*^9}, {3.5422492398098097`*^9, 
   3.5422492472312346`*^9}, {3.559761092622876*^9, 3.559761119849434*^9}, {
   3.559761766197403*^9, 3.5597617662104034`*^9}, {3.559762849900387*^9, 
   3.559762861701062*^9}, {3.559766435227456*^9, 3.5597664702564597`*^9}, {
   3.559766573360357*^9, 3.5597665848500137`*^9}, 3.559772204563448*^9, 
   3.5597726348900614`*^9, {3.5597879119951415`*^9, 3.5597879831132097`*^9}, {
   3.559866186860685*^9, 3.5598661877727365`*^9}, {3.559866244969899*^9, 
   3.559866277590762*^9}, 3.7061417753185077`*^9, 3.7154755958041134`*^9, 
   3.7154756779228106`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[NotEqual]", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5242761432469025`*^9, 3.524276143496503*^9}, {3.5242771518198743`*^9, 
   3.5242771521630745`*^9}, {3.53050021879398*^9, 3.5305002190639806`*^9}, {
   3.5313467792889757`*^9, 3.531346779609437*^9}, {3.5332483759292145`*^9, 
   3.533248378049217*^9}, {3.5361011340389395`*^9, 3.5361011342609525`*^9}, {
   3.5393936513939505`*^9, 3.539393651589962*^9}, {3.5597602987184677`*^9, 
   3.559760311575203*^9}, {3.5597622924045*^9, 3.5597622924055*^9}, {
   3.5597663431011868`*^9, 3.5597663435022097`*^9}, {3.5597855003192015`*^9, 
   3.5597855007092237`*^9}, {3.55978775164997*^9, 3.559787835942792*^9}, {
   3.559861161100974*^9, 3.559861162038028*^9}, {3.5598662173573985`*^9, 
   3.5598662221506724`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Piecewise linear recurrence 2 with ",
 Cell[BoxData[
  RowBox[{"m", "=", 
   RowBox[{"-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239219320466223`*^9, 3.523921932483423*^9}, 3.523922332636526*^9, 
   3.5240774276838474`*^9, 3.559762733210713*^9, {3.559787814676575*^9, 
   3.5597878234010744`*^9}}],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.4964493315022907`*^9, 3.496451849815816*^9, 3.4964519519959593`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957339078770905`*^9, 
   3.495733966267172*^9}, {3.495734148157427*^9, 3.4957341584974413`*^9}, {
   3.4957346698781567`*^9, 3.495734670108157*^9}, {3.4957347778783083`*^9, 
   3.4957348688784356`*^9}, {3.4957353058790474`*^9, 
   3.4957353764991465`*^9}, {3.495735447019245*^9, 3.4957354738692827`*^9}, {
   3.495735673029561*^9, 3.495735708249611*^9}, {3.495735761689686*^9, 
   3.495735816759763*^9}, {3.519321952763323*^9, 3.5193219564137297`*^9}, {
   3.5193301751295214`*^9, 3.5193301764895234`*^9}, {3.51997092534389*^9, 
   3.519970926503892*^9}, {3.519970958153936*^9, 3.5199709599639387`*^9}, {
   3.5232193431478186`*^9, 3.5232193431478186`*^9}, {3.523219382187873*^9, 
   3.523219382187873*^9}, {3.5239242373346725`*^9, 3.5239242378182735`*^9}, {
   3.52392508992297*^9, 3.52392509564818*^9}, {3.5239302376559286`*^9, 
   3.52393025562716*^9}, {3.5240761723340425`*^9, 3.5240761723340425`*^9}, {
   3.5240785078765445`*^9, 3.5240785078765445`*^9}, {3.5240792759594936`*^9, 
   3.5240792759594936`*^9}, {3.533248403779253*^9, 3.533248403779253*^9}, 
   3.5597622925715094`*^9, {3.5597878874817395`*^9, 3.5597878874817395`*^9}, {
   3.5598662285100365`*^9, 3.5598662285100365`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["v", "n"], "u"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox["v", "n"], 
       RowBox[{"a", " ", "n"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "a"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", 
       RowBox[{"n", "-", "1"}]], "u"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
   3.4957347552282763`*^9, 3.4957352122989163`*^9, 3.495735613359478*^9, {
   3.519245772243784*^9, 3.519245774883787*^9}, {3.523923312069047*^9, 
   3.5239233801163664`*^9}, 3.5239234676169205`*^9, {3.5597602987374687`*^9, 
   3.559760311604205*^9}, {3.5597665218974133`*^9, 3.559766543057624*^9}, {
   3.5597738448792686`*^9, 3.559773846432358*^9}, {3.5597878439312487`*^9, 
   3.5597878771431484`*^9}, {3.5598612755627694`*^9, 
   3.5598612761748047`*^9}, {3.560133084632045*^9, 3.5601330898520527`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"v_", "^", "n_"}], "/", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "^", "n"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "*", "n"}], ")"}]}], " ", "-", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"v", "^", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], "/", "u"}], ",", "x"}], 
         "]"}]}]}], " ", "/;", "\n", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957338140769587`*^9, {3.495734137617412*^9, 
   3.4957341399074154`*^9}, {3.495734511017935*^9, 3.495734528517959*^9}, 
   3.4957347273482375`*^9, 3.495735153298834*^9, {3.495735298589037*^9, 
   3.4957353008290405`*^9}, 3.4957355751594243`*^9, {3.4957356510695305`*^9, 
   3.4957356533595343`*^9}, {3.495735877319847*^9, 3.495735880499852*^9}, {
   3.5192457788337927`*^9, 3.519245781843797*^9}, {3.5195345973873577`*^9, 
   3.519534614016987*^9}, 3.519534727507186*^9, {3.519534795242505*^9, 
   3.5195348019193163`*^9}, 3.5195348785154514`*^9, {3.5195350295705166`*^9, 
   3.5195350491641507`*^9}, {3.519535092641427*^9, 3.5195351693935623`*^9}, {
   3.519535655591216*^9, 3.5195356593664227`*^9}, {3.519606160650326*^9, 
   3.519606163090329*^9}, {3.519606452020734*^9, 3.519606460970746*^9}, {
   3.519606533840848*^9, 3.5196065552708783`*^9}, {3.5196066384009943`*^9, 
   3.519606639350996*^9}, {3.519606960391445*^9, 3.519606964641451*^9}, {
   3.519607006101509*^9, 3.519607008071512*^9}, {3.519690712415882*^9, 
   3.5196908122360215`*^9}, {3.5196913871068263`*^9, 3.519691398526842*^9}, {
   3.5196915172970085`*^9, 3.5196915212270145`*^9}, {3.519691676937232*^9, 
   3.5196917072072744`*^9}, {3.519691741697323*^9, 3.519691769957362*^9}, {
   3.519692141667883*^9, 3.519692177457933*^9}, 3.5196922088879766`*^9, {
   3.519692290588091*^9, 3.5196923019281073`*^9}, {3.5196923355481544`*^9, 
   3.5196923578281856`*^9}, {3.5196923898282304`*^9, 3.519692393298235*^9}, {
   3.519692695518658*^9, 3.5196926993486633`*^9}, {3.5196931055192323`*^9, 
   3.5196931104092393`*^9}, {3.519693151939297*^9, 3.5196931776293335`*^9}, {
   3.5196932172193885`*^9, 3.519693234669413*^9}, {3.519753326771507*^9, 
   3.5197533305155134`*^9}, {3.5198313113547344`*^9, 3.519831340838786*^9}, {
   3.519834362939569*^9, 3.51983439023713*^9}, {3.5198344273732543`*^9, 
   3.5198344481604433`*^9}, {3.5198350554380674`*^9, 
   3.5198350667580833`*^9}, {3.519972534776143*^9, 3.5199725378361473`*^9}, {
   3.519976145341198*^9, 3.5199761527812085`*^9}, {3.5200079367719154`*^9, 
   3.520007944571929*^9}, {3.5200079838683977`*^9, 3.5200080068628387`*^9}, {
   3.5200082042499847`*^9, 3.520008209163994*^9}, {3.520008268475298*^9, 
   3.520008272812105*^9}, {3.5200084631172194`*^9, 3.520008466417224*^9}, {
   3.520008565427363*^9, 3.52000858504739*^9}, {3.520008634227459*^9, 
   3.5200086454774747`*^9}, {3.520008679107522*^9, 3.520008707787562*^9}, {
   3.520009022878003*^9, 3.5200090267780085`*^9}, {3.520009114588132*^9, 
   3.520009115638133*^9}, {3.52000917751822*^9, 3.52000917788822*^9}, {
   3.520009232388296*^9, 3.520009233728298*^9}, {3.5200096803289237`*^9, 
   3.5200096817989254`*^9}, {3.5200097702990494`*^9, 3.520009789299076*^9}, {
   3.5200099246992655`*^9, 3.5200099606693163`*^9}, {3.520010018479397*^9, 
   3.5200100198093987`*^9}, {3.5200101574795914`*^9, 
   3.5200101701596093`*^9}, {3.523219291537746*^9, 3.523219307977769*^9}, {
   3.5232194303579407`*^9, 3.5232194305479407`*^9}, 3.523924040949127*^9, {
   3.523924083896003*^9, 3.523924086610408*^9}, 3.523924210381025*^9, 
   3.5239244595882626`*^9, {3.523925083277358*^9, 3.5239251500298758`*^9}, 
   3.5240762505213795`*^9, 3.524078560386237*^9, {3.524079201235362*^9, 
   3.5240792160553885`*^9}, {3.5240792615450683`*^9, 3.524079263245471*^9}, {
   3.52407931407036*^9, 3.524079315333963*^9}, {3.5240794632378225`*^9, 
   3.5240794666386285`*^9}, {3.5241038915762796`*^9, 3.524103955302392*^9}, {
   3.5241092335840626`*^9, 3.524109236189267*^9}, {3.5241093841867275`*^9, 
   3.5241094179919863`*^9}, {3.5241094771004906`*^9, 3.524109478598093*^9}, {
   3.5241592101752768`*^9, 3.524159214705283*^9}, {3.5241592921253915`*^9, 
   3.524159300245403*^9}, {3.5241593621054897`*^9, 3.5241593685654984`*^9}, {
   3.5241596320758677`*^9, 3.5241596554659004`*^9}, {3.5241597920960913`*^9, 
   3.5241597944060946`*^9}, {3.524171076647507*^9, 3.5241710855075197`*^9}, {
   3.5241902075571866`*^9, 3.5241902127207956`*^9}, {3.524190359891454*^9, 
   3.524190365991065*^9}, {3.524192455007534*^9, 3.524192459921543*^9}, {
   3.5241924983444104`*^9, 3.5241925008092146`*^9}, {3.524192578996552*^9, 
   3.524192580728155*^9}, {3.524192647355872*^9, 3.5241926520514803`*^9}, {
   3.5241926899907465`*^9, 3.5241927010667667`*^9}, {3.524192750394053*^9, 
   3.5241927779437017`*^9}, {3.5241928342598004`*^9, 
   3.5241928356014028`*^9}, {3.524192886363892*^9, 3.5241929290923667`*^9}, {
   3.5241930126929135`*^9, 3.5241930342209516`*^9}, 3.524253083175646*^9, 
   3.5242575379690695`*^9, 3.524258633652594*^9, 3.5249480915983686`*^9, {
   3.5332484110692635`*^9, 3.5332484132492666`*^9}, {3.5422492398098097`*^9, 
   3.5422492472312346`*^9}, {3.559761092622876*^9, 3.559761119849434*^9}, {
   3.559761766197403*^9, 3.5597617662104034`*^9}, {3.559762849900387*^9, 
   3.559762861701062*^9}, {3.559766435227456*^9, 3.5597664702564597`*^9}, {
   3.559766573360357*^9, 3.5597665848500137`*^9}, 3.559772204563448*^9, 
   3.5597726348900614`*^9, {3.5597879119951415`*^9, 3.5597879831132097`*^9}, {
   3.5598661907559075`*^9, 3.559866201998539*^9}, {3.5601331015420685`*^9, 
   3.5601331043920727`*^9}, 3.7061417753385077`*^9, 3.7154756008093996`*^9, {
   3.7154756779438114`*^9, 3.715475707586507*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, {3.5192520188581386`*^9, 
   3.519252047359389*^9}, {3.5193215842126756`*^9, 3.519321601263506*^9}, {
   3.5194119314592657`*^9, 3.519411931802466*^9}, {3.5197938910231733`*^9, 
   3.519793891225974*^9}, {3.521473802252653*^9, 3.5214738265526876`*^9}, {
   3.521474098923069*^9, 3.5214741010730715`*^9}, {3.5233165069443364`*^9, 
   3.5233165069443364`*^9}, {3.523316543544388*^9, 3.523316543544388*^9}, {
   3.523318428619928*^9, 3.523318428859928*^9}, {3.5239323924621134`*^9, 
   3.5239324122429485`*^9}, 3.5239326458689585`*^9, {3.523933493309247*^9, 
   3.523933514852885*^9}, {3.524106196773529*^9, 3.5241061969451294`*^9}, {
   3.524276131468882*^9, 3.524276131796483*^9}, {3.5244283128175106`*^9, 
   3.5244283128175106`*^9}, {3.5305002027039576`*^9, 
   3.5305002032839584`*^9}, {3.531336527427523*^9, 3.531336528218661*^9}, {
   3.5393936363055983`*^9, 3.539393636495601*^9}, 3.5597602983814487`*^9, 
   3.5597603725326896`*^9, {3.5597622900843673`*^9, 3.5597622900843673`*^9}, {
   3.5597875680894713`*^9, 3.5597875693695445`*^9}, {3.5597875994392643`*^9, 
   3.559787663789945*^9}, {3.5597876948057194`*^9, 3.5597876948057194`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"u", " ", "v"}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 3.519411825160679*^9}, {
   3.5197938874663677`*^9, 3.519793887622368*^9}, {3.521473129081711*^9, 
   3.521473129251711*^9}, {3.5233166104244814`*^9, 3.5233166104244814`*^9}, {
   3.523316667454561*^9, 3.523316667454561*^9}, {3.523318491085629*^9, 
   3.523318491085629*^9}, {3.523318661904702*^9, 3.523318661904702*^9}, {
   3.5239315970479164`*^9, 3.523931613427945*^9}, 3.5239334925136456`*^9, 
   3.5240782699605265`*^9, 3.558297954033764*^9, {3.5583250170946712`*^9, 
   3.558325040806713*^9}, {3.559760298321445*^9, 3.559760311433195*^9}, {
   3.559760628058305*^9, 3.5597606451872845`*^9}, {3.55976067797316*^9, 
   3.55976067797316*^9}, {3.559761387130721*^9, 3.559761387130721*^9}, {
   3.559761662578476*^9, 3.559761666161681*^9}, {3.559762133341402*^9, 
   3.5597621352055087`*^9}, {3.5597624754289684`*^9, 3.55976247790511*^9}, 
   3.5597850674134407`*^9, 3.5597876092758274`*^9, 3.559787666814118*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion and piecewise constant extraction\
\>", "Subsubsection",
 CellChangeTimes->{{3.559157630732274*^9, 3.5591576335534353`*^9}, {
  3.5591581698461094`*^9, 3.5591581710281773`*^9}, {3.5592714907888474`*^9, 
  3.559271503824593*^9}, {3.5592718201726875`*^9, 3.5592718254879913`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"u", " ", "v"}]], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["b", 
      RowBox[{
       RowBox[{"b", " ", "u"}], "-", 
       RowBox[{"a", " ", "v"}]}]], 
     FractionBox["1", "v"]}], "-", 
    RowBox[{
     FractionBox["a", 
      RowBox[{
       RowBox[{"b", " ", "u"}], "-", 
       RowBox[{"a", " ", "v"}]}]], 
     FractionBox["1", "u"]}]}]}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.5591581077775593`*^9, 3.559158118018145*^9}, {3.559183942417581*^9, 
   3.559183971683255*^9}, {3.5592715162933064`*^9, 3.559271520110524*^9}, {
   3.559271595703848*^9, 3.5592716533411446`*^9}, {3.5592719534723115`*^9, 
   3.559271961259757*^9}, {3.5592727669098377`*^9, 3.559272791385237*^9}, {
   3.559272823100051*^9, 3.559272837485874*^9}, {3.559273788323259*^9, 
   3.5592738219421816`*^9}, {3.55951414240023*^9, 3.5595141922840834`*^9}, {
   3.5595383204524984`*^9, 3.5595383360673914`*^9}, {3.5595831098669095`*^9, 
   3.5595831098819103`*^9}, {3.55967047959118*^9, 3.55967047959918*^9}, {
   3.5596705981089587`*^9, 3.5596705981229596`*^9}, {3.5596713348710995`*^9, 
   3.5596713348780994`*^9}, {3.5596713819617925`*^9, 
   3.5596713852819824`*^9}, {3.5596715083290205`*^9, 
   3.5596715291862135`*^9}, {3.5596715925478373`*^9, 3.559671596754078*^9}, {
   3.5597609153257356`*^9, 3.5597609208470516`*^9}, {3.5597614994781475`*^9, 
   3.5597615121758738`*^9}}],

Cell[TextData[{
 "Basis",
 ": If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox["1", 
     RowBox[{
      RowBox[{"b", " ", "u"}], "-", 
      RowBox[{"a", " ", "v"}]}]]}], "\[Equal]", "0"}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.5591581077775593`*^9, 3.559158118018145*^9}, {3.559183942417581*^9, 
   3.559183971683255*^9}, {3.5592715162933064`*^9, 3.559271520110524*^9}, {
   3.559272728887663*^9, 3.559272732272856*^9}, {3.559514237701681*^9, 
   3.559514237701681*^9}, {3.559538320465499*^9, 3.559538336073392*^9}, {
   3.559583109893911*^9, 3.559583109893911*^9}, {3.5596704796071806`*^9, 
   3.5596704796071806`*^9}, {3.5596705981289597`*^9, 
   3.5596705981289597`*^9}, {3.5596713348861*^9, 3.5596713348871*^9}, {
   3.5596713741423454`*^9, 3.559671376109458*^9}, 3.5596714367289248`*^9, {
   3.559760958127184*^9, 3.5597609699918623`*^9}, {3.5597615860711*^9, 
   3.5597615860711*^9}, {3.5597616784223824`*^9, 3.5597616784223824`*^9}, {
   3.5597621502443686`*^9, 3.5597621502443686`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.5591550126695294`*^9, 
   3.5591550126705294`*^9}, {3.559156591839853*^9, 3.559156591839853*^9}, {
   3.5591588444326935`*^9, 3.5591588444326935`*^9}, {3.5592724632434683`*^9, 
   3.5592724632434683`*^9}, {3.559272874617998*^9, 3.5592728766611147`*^9}, {
   3.559581551879798*^9, 3.559581551879798*^9}, {3.5595831573756266`*^9, 
   3.5595831573756266`*^9}, {3.5596705137501335`*^9, 
   3.5596705137501335`*^9}, {3.5597606958661833`*^9, 
   3.5597606958661833`*^9}, {3.5597608290788026`*^9, 
   3.5597608290788026`*^9}, {3.5597616807325144`*^9, 
   3.5597616807325144`*^9}, {3.559762141383862*^9, 3.559762141383862*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"u", " ", "v"}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["b", 
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}]]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox["1", "v"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["a", 
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", "u"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.5591566419517193`*^9, 
   3.5591566428227687`*^9}, 3.5591568509826746`*^9, {3.5591570981548123`*^9, 
   3.559157119690044*^9}, {3.5591576011655827`*^9, 3.5591577917634845`*^9}, {
   3.559183914509985*^9, 3.5591839309889274`*^9}, {3.55918398243987*^9, 
   3.55918399835478*^9}, 3.559271694811517*^9, {3.559272542871023*^9, 
   3.5592725698755674`*^9}, {3.5592726005623226`*^9, 
   3.5592726931986213`*^9}, {3.559273893037248*^9, 3.559273932091482*^9}, {
   3.5595142518334894`*^9, 3.559514284876379*^9}, {3.5595383204825*^9, 
   3.5595383361033936`*^9}, {3.559583109909912*^9, 3.5595831099229126`*^9}, {
   3.5596704796231813`*^9, 3.559670479641183*^9}, {3.5596705981329603`*^9, 
   3.559670598144961*^9}, {3.5596713348961*^9, 3.559671334903101*^9}, 
   3.5596714812134695`*^9, {3.5596715698965416`*^9, 3.559671574462803*^9}, {
   3.559760511764653*^9, 3.5597605253934326`*^9}, {3.5597605657117386`*^9, 
   3.5597605884520397`*^9}, {3.5597606971562567`*^9, 3.5597607175874257`*^9}, 
   3.559760763041025*^9, {3.559760872156266*^9, 3.559760873878365*^9}, {
   3.5597614491462684`*^9, 3.5597614821441555`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"u_", "*", "v_"}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"b", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{"1", "/", "v"}], ",", "x"}], "]"}]}], " ", "-", " ", 
       RowBox[{
        RowBox[{"a", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{"1", "/", "u"}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
      " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.5239318270547204`*^9, {
   3.5239321737653294`*^9, 3.52393218559015*^9}, {3.523932237429041*^9, 
   3.523932244105853*^9}, 3.5240849686870804`*^9, {3.539918162816128*^9, 
   3.5399181836161575`*^9}, {3.542249191502047*^9, 3.5422492175045347`*^9}, {
   3.5583239232671504`*^9, 3.5583239271359572`*^9}, {3.5583250467503233`*^9, 
   3.558325070462365*^9}, 3.5597610739718094`*^9, 3.559761119752428*^9, {
   3.559761766017392*^9, 3.5597619505419464`*^9}, {3.5597622139750137`*^9, 
   3.559762214757059*^9}, 3.7061417753685074`*^9, 3.7154756024974966`*^9, 
   3.7154756779588127`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"u", 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, {3.5192520188581386`*^9, 
   3.519252047359389*^9}, {3.5193215842126756`*^9, 3.519321601263506*^9}, {
   3.5194119314592657`*^9, 3.519411931802466*^9}, {3.5197938910231733`*^9, 
   3.519793891225974*^9}, {3.521473802252653*^9, 3.5214738265526876`*^9}, {
   3.521474098923069*^9, 3.5214741010730715`*^9}, {3.5233165069443364`*^9, 
   3.5233165069443364`*^9}, {3.523316543544388*^9, 3.523316543544388*^9}, {
   3.523318428619928*^9, 3.523318428859928*^9}, {3.5239323924621134`*^9, 
   3.5239324122429485`*^9}, 3.5239326458689585`*^9, {3.523933493309247*^9, 
   3.523933514852885*^9}, {3.524106196773529*^9, 3.5241061969451294`*^9}, {
   3.524276131468882*^9, 3.524276131796483*^9}, {3.5244283128175106`*^9, 
   3.5244283128175106`*^9}, {3.5305002027039576`*^9, 
   3.5305002032839584`*^9}, {3.531336527427523*^9, 3.531336528218661*^9}, {
   3.5393936363055983`*^9, 3.539393636495601*^9}, 3.5597602983814487`*^9, 
   3.5597603725326896`*^9, {3.5597622900843673`*^9, 3.5597622900843673`*^9}, 
   3.5597876113789473`*^9, 3.5597876681941967`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"u", 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"b", " ", "u"}], "-", 
          RowBox[{"a", " ", "v"}]}], "a"], ">", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, 3.5597602984014497`*^9, 3.559760372554691*^9, {
   3.5597622902523766`*^9, 3.5597622902523766`*^9}, {3.5597645870037436`*^9, 
   3.5597645870037436`*^9}, {3.5597654733514395`*^9, 3.5597654733514395`*^9}, 
   3.5597876164912395`*^9, 3.5597876693992662`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"b", " ", "u"}], "-", 
      RowBox[{"a", " ", "v"}]}], "a"], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495422309212067*^9, 3.495422333272101*^9}, {
   3.5239327209362907`*^9, 3.5239327209362907`*^9}, {3.559762290417386*^9, 
   3.559762290417386*^9}, {3.559764587012744*^9, 3.559764587012744*^9}, {
   3.559765437462387*^9, 3.559765437462387*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"u", " ", 
     SqrtBox["v"]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["2", 
      RowBox[{"a", " ", 
       SqrtBox[
        FractionBox[
         RowBox[{
          RowBox[{"b", " ", "u"}], "-", 
          RowBox[{"a", " ", "v"}]}], "a"]]}]]}]}], 
   RowBox[{"ArcTan", "[", 
    FractionBox[
     SqrtBox["v"], 
     SqrtBox[
      FractionBox[
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}], "a"]]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.4954224033621993`*^9, 3.495422429782236*^9}, {
   3.4962830099393682`*^9, 3.496283015729377*^9}, 3.55976029840845*^9, {
   3.559760372571692*^9, 3.559760372575692*^9}, {3.559764587022745*^9, 
   3.559764587031745*^9}, {3.5597646241148663`*^9, 3.5597646274920597`*^9}, {
   3.559764946698317*^9, 3.559764950645543*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"u_", "*", 
       RowBox[{"Sqrt", "[", "v_", "]"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"2", "*", 
       RowBox[{
        RowBox[{"ArcTan", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", "v", "]"}], "/", 
          RowBox[{"Rt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"b", "*", "u"}], "-", 
               RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], ",", "2"}], 
           "]"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Rt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"b", "*", "u"}], "-", 
               RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], ",", "2"}], 
           "]"}]}], ")"}]}]}], " ", "/;", "\n", " ", 
      RowBox[{
       RowBox[{"NeQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "*", "u"}], "-", 
          RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"PosQ", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], "]"}]}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, 3.5597610988682337`*^9, 
   3.559761160894781*^9, {3.559761766082396*^9, 3.5597617661073976`*^9}, 
   3.5597646654122286`*^9, {3.559764696491006*^9, 3.5597647605356693`*^9}, {
   3.559765420619424*^9, 3.5597654324631014`*^9}, 3.7061417753985076`*^9, 
   3.71547560552967*^9, 3.7154756779678125`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"u", 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"\[Not]", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"b", " ", "u"}], "-", 
            RowBox[{"a", " ", "v"}]}], "a"], ">", "0"}], ")"}]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.519412035215048*^9}, {
   3.5197938949231806`*^9, 3.5197938952195807`*^9}, {3.52147380690266*^9, 
   3.5214738319026947`*^9}, {3.521474111163086*^9, 3.5214741128930883`*^9}, {
   3.5233166163044896`*^9, 3.5233166163044896`*^9}, {3.523316670704566*^9, 
   3.523316670704566*^9}, {3.523318496792838*^9, 3.523318496792838*^9}, {
   3.5233186485502796`*^9, 3.5233186485502796`*^9}, 3.523932422804167*^9, {
   3.523932767315172*^9, 3.523932779186793*^9}, 3.5239334948068495`*^9, 
   3.5597602984174504`*^9, 3.5597603725936933`*^9, {3.5597622905823956`*^9, 
   3.5597622905823956`*^9}, {3.5597645870517464`*^9, 
   3.5597645870517464`*^9}, {3.5597654808618693`*^9, 3.5597654808628693`*^9}, 
   3.559787617947323*^9, 3.5597876704913282`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"\[Not]", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}], "a"], ">", "0"}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4954223457721186`*^9, 
   3.4954223698921523`*^9}, {3.5239328360176926`*^9, 3.5239328360176926`*^9}, 
   3.5597622907484055`*^9, {3.559764587064747*^9, 3.559764587064747*^9}, {
   3.5597655184930215`*^9, 3.5597655184930215`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"u", " ", 
     SqrtBox["v"]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox["2", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"b", " ", "u"}], "-", 
            RowBox[{"a", " ", "v"}]}], "a"]}]]}]]}]}]}], 
   RowBox[{"ArcTanh", "[", 
    FractionBox[
     SqrtBox["v"], 
     SqrtBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "a"]}]]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495422441222252*^9, 3.4954224733722973`*^9, {
   3.4962830195293818`*^9, 3.4962830235593877`*^9}, 3.559760298424451*^9, {
   3.559760372610694*^9, 3.559760372615694*^9}, {3.5597655260044518`*^9, 
   3.5597655354989944`*^9}, {3.55976565134062*^9, 3.559765660182126*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"u_", "*", 
       RowBox[{"Sqrt", "[", "v_", "]"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "*", 
       RowBox[{
        RowBox[{"ArcTanh", "[", 
         RowBox[{
          RowBox[{"Sqrt", "[", "v", "]"}], "/", 
          RowBox[{"Rt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"b", "*", "u"}], "-", 
                RowBox[{"a", "*", "v"}]}], ")"}]}], "/", "a"}], ",", "2"}], 
           "]"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "*", 
          RowBox[{"Rt", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"b", "*", "u"}], "-", 
                RowBox[{"a", "*", "v"}]}], ")"}]}], "/", "a"}], ",", "2"}], 
           "]"}]}], ")"}]}]}], " ", "/;", "\n", " ", 
      RowBox[{
       RowBox[{"NeQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "*", "u"}], "-", 
          RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"NegQ", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", "a"}], "]"}]}]}]}], "]"}], 
   " ", "/;", "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4954222457419786`*^9, 3.5239327426359286`*^9, 
   3.5597610988792343`*^9, 3.559761160917783*^9, {3.5597617661173983`*^9, 
   3.5597617661253986`*^9}, 3.55976476055867*^9, {3.5597655643486443`*^9, 
   3.5597655719650803`*^9}, {3.559765602888849*^9, 3.55976561567258*^9}, 
   3.7061417754185076`*^9, 3.7154756092828846`*^9, 3.7154756779758134`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194145072773895`*^9}, {
   3.5197939591952934`*^9, 3.519793959460494*^9}, {3.519794032437422*^9, 
   3.5197940326558228`*^9}, 3.519795155686195*^9, {3.5200148264181366`*^9, 
   3.520014826728137*^9}, {3.523218702396921*^9, 3.5232187026569214`*^9}, {
   3.5232187875870404`*^9, 3.5232187980170555`*^9}, {3.5232198518085303`*^9, 
   3.5232198518085303`*^9}, {3.5233166544645433`*^9, 
   3.5233166544645433`*^9}, {3.523316707224617*^9, 3.523316707224617*^9}, {
   3.5239220811984844`*^9, 3.5239221068293295`*^9}, {3.523922191724679*^9, 
   3.5239221961862864`*^9}, {3.5239303370749035`*^9, 
   3.5239303370749035`*^9}, {3.5240761949696817`*^9, 
   3.5240761949696817`*^9}, {3.524077661590658*^9, 3.5240776619026585`*^9}, {
   3.524078439720025*^9, 3.524078444400033*^9}, {3.5240784984541283`*^9, 
   3.524078525161375*^9}, {3.5242761464293084`*^9, 3.5242761467101088`*^9}, {
   3.5242771543782787`*^9, 3.52427715528308*^9}, {3.530500221433984*^9, 
   3.530500221903984*^9}, {3.5313467820128927`*^9, 3.5313467841359453`*^9}, {
   3.536101136367073*^9, 3.536101136541083*^9}, {3.5393936535670753`*^9, 
   3.539393653755086*^9}, {3.55976029876447*^9, 3.5597603116192055`*^9}, {
   3.5597622927375193`*^9, 3.5597622927375193`*^9}, {3.5597667576949*^9, 
   3.5597667580529203`*^9}, {3.559785503528385*^9, 3.5597855038994064`*^9}, {
   3.5597880601596165`*^9, 3.5597880875051804`*^9}, {3.5597886947119102`*^9, 
   3.5597886976120763`*^9}, {3.5598591538130646`*^9, 
   3.5598591554701595`*^9}, {3.5598592778686047`*^9, 3.5598592778686047`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: Piecewise linear recurrence 3 with ",
 Cell[BoxData[
  RowBox[{"n", "=", 
   RowBox[{"-", "1"}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239220156159697`*^9, 3.52392201592797*^9}, 3.5239223352261305`*^9, 
   3.524077172638999*^9, 3.5597627333127184`*^9, {3.5597881293495736`*^9, 
   3.55978814572151*^9}}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.4964493315022907`*^9, 3.496451849815816*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522723415243*^9, 
   3.496522765635302*^9}, {3.496523221825941*^9, 3.4965232354159594`*^9}, {
   3.496523793466741*^9, 3.4965238105867653`*^9}, {3.496523849186819*^9, 
   3.496523869436847*^9}, {3.496524240927367*^9, 3.4965242872774324`*^9}, {
   3.496524601367872*^9, 3.496524684427988*^9}, {3.496525229068751*^9, 
   3.496525236998762*^9}, {3.519321961889339*^9, 3.5193219646193438`*^9}, {
   3.5193301777395253`*^9, 3.5193301789795265`*^9}, {3.51997075376365*^9, 
   3.5199707979637117`*^9}, {3.523924255929905*^9, 3.523924261031114*^9}, {
   3.5239258955519853`*^9, 3.5239258955519853`*^9}, {3.524076197184886*^9, 
   3.524076197184886*^9}, {3.5240785046005387`*^9, 3.5240785209337673`*^9}, 
   3.5597622929035287`*^9, {3.559859301593094*^9, 3.559859301593094*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["v", "n"], "u"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       SuperscriptBox["v", 
        RowBox[{"n", "+", "1"}]], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", " ", "u"}], "-", 
          RowBox[{"a", " ", "v"}]}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "u"}], "-", 
       RowBox[{"a", " ", "v"}]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", 
       RowBox[{"n", "+", "1"}]], "u"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
   3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
   3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
   3.496524564957821*^9, 3.523923460628108*^9, {3.523923671790079*^9, 
   3.523923690042111*^9}, 3.5239239037780867`*^9, {3.5597602987814713`*^9, 
   3.559760311646207*^9}, {3.5597668700773277`*^9, 3.559766895706794*^9}, {
   3.5597670282063723`*^9, 3.559767046408414*^9}, {3.559788180567503*^9, 
   3.5597882533636665`*^9}, {3.559788286743576*^9, 3.5597883180523667`*^9}, {
   3.5597884013941336`*^9, 3.5597884049393363`*^9}, {3.5597885061741266`*^9, 
   3.5597885326266394`*^9}, 3.5598590453439817`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5239247701536083`*^9, 3.523924774100415*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"v_", "^", "n_"}], "/", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "u"}], "-", 
            RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}], " ", "-", " ", 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"a", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", "+", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"v", "^", 
            RowBox[{"(", 
             RowBox[{"n", "+", "1"}], ")"}]}], "/", "u"}], ",", "x"}], 
         "]"}]}]}], " ", "/;", "\n", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, {
   3.496525206278719*^9, 3.4965252146987305`*^9}, {3.496525246928776*^9, 
   3.496525255068787*^9}, {3.517191220584426*^9, 3.517191223673231*^9}, 
   3.5198290200247097`*^9, {3.5198290561075735`*^9, 3.51982911128487*^9}, {
   3.519829150004138*^9, 3.519829150253739*^9}, {3.519831388060069*^9, 
   3.519831392459277*^9}, {3.5198315094594827`*^9, 3.5198315116278863`*^9}, {
   3.519831575151198*^9, 3.5198315776784024`*^9}, 3.5199707268036118`*^9, {
   3.519970770203673*^9, 3.5199707712836742`*^9}, {3.520015955183719*^9, 
   3.5200159597337255`*^9}, {3.520016023403815*^9, 3.5200160437938433`*^9}, {
   3.5200162727341638`*^9, 3.5200162782441716`*^9}, {3.520016539064537*^9, 
   3.5200165416345406`*^9}, {3.520016640554679*^9, 3.5200166644847126`*^9}, {
   3.5200167803048744`*^9, 3.5200167810648756`*^9}, {3.520016827704941*^9, 
   3.520016827924941*^9}, {3.5200168944250345`*^9, 3.520016895195035*^9}, {
   3.5200170601352663`*^9, 3.52001712010535*^9}, {3.520017245065525*^9, 
   3.5200172509055333`*^9}, 3.520017485745862*^9, {3.5200177331762085`*^9, 
   3.5200177767262697`*^9}, {3.520019280632377*^9, 3.5200192892723894`*^9}, {
   3.520019537582737*^9, 3.520019553302759*^9}, 3.520019948243312*^9, {
   3.5232198283984976`*^9, 3.5232198300285*^9}, 3.5239240548487515`*^9, {
   3.5239241358440943`*^9, 3.5239241492601175`*^9}, 3.5239242125338287`*^9, 
   3.5239247792640247`*^9, {3.5239258461342983`*^9, 3.523925877256353*^9}, 
   3.524076266651808*^9, {3.5240785663298473`*^9, 3.524078576625865*^9}, {
   3.5240794890090675`*^9, 3.5240794935330753`*^9}, {3.524153273471707*^9, 
   3.5241532822592096`*^9}, {3.524155163827611*^9, 3.524155262687749*^9}, {
   3.524159481755657*^9, 3.524159543335743*^9}, {3.524189918629079*^9, 
   3.524189923761488*^9}, {3.524190187199151*^9, 3.524190190553157*^9}, {
   3.5241907557421494`*^9, 3.524190758986955*^9}, {3.524190810264245*^9, 
   3.524190812417049*^9}, {3.5241909830033484`*^9, 3.524191054716675*^9}, {
   3.5241911690024753`*^9, 3.5241911994537287`*^9}, {3.52419128562828*^9, 
   3.5241912877186837`*^9}, {3.524191320634742*^9, 3.5241913236299467`*^9}, {
   3.5241914087592964`*^9, 3.5241914356393437`*^9}, {3.524240419664506*^9, 
   3.5242404550609684`*^9}, {3.5242405497531347`*^9, 3.524240552420739*^9}, {
   3.524240614914449*^9, 3.524240636582887*^9}, {3.52424080354998*^9, 
   3.5242408417232475`*^9}, {3.5242408792257137`*^9, 
   3.5242408903329325`*^9}, {3.52424170289156*^9, 3.524241760923662*^9}, {
   3.52424182808178*^9, 3.524241841076603*^9}, {3.5242418870342836`*^9, 
   3.52424189087189*^9}, {3.524241931759562*^9, 3.5242419417591796`*^9}, {
   3.524241992771269*^9, 3.5242420707090063`*^9}, {3.524242235336095*^9, 
   3.5242422377384996`*^9}, {3.5242483598333826`*^9, 3.524248367473393*^9}, 
   3.524256700075998*^9, 3.524259045103317*^9, 3.524948037348293*^9, {
   3.5348936061418905`*^9, 3.534893634961931*^9}, {3.5348938156221843`*^9, 
   3.534893832082207*^9}, {3.5348950110163636`*^9, 3.534895021886379*^9}, {
   3.5348950962664833`*^9, 3.5348951481365557`*^9}, {3.542249264790239*^9, 
   3.5422492707905817`*^9}, {3.542249351268185*^9, 3.5422493564864836`*^9}, {
   3.5498427773875113`*^9, 3.5498427801275153`*^9}, {3.5498429704977818`*^9, 
   3.549842982187798*^9}, {3.5597610926778793`*^9, 3.5597611198984365`*^9}, {
   3.559761766268407*^9, 3.5597617662934084`*^9}, {3.559762849935389*^9, 
   3.559762861734064*^9}, {3.559766780909228*^9, 3.559766842034724*^9}, {
   3.5597670673026085`*^9, 3.5597671044517336`*^9}, {3.559767293102524*^9, 
   3.559767294703615*^9}, {3.5597884720471745`*^9, 3.5597884771844683`*^9}, {
   3.5598588555721655`*^9, 3.559858856976246*^9}, {3.5598590699163465`*^9, 
   3.5598591493608103`*^9}, {3.559859329700596*^9, 3.559859331550701*^9}, 
   3.7061417754385076`*^9, 3.7154756125660725`*^9, 3.7154756779848137`*^9, {
   3.715475725486531*^9, 3.7154757284867024`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["v", "n"], "u"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.55396602222933*^9, {
   3.5557245433748407`*^9, 3.5557245433748407`*^9}, {3.555724591514908*^9, 
   3.55572459285491*^9}, 3.555812607377571*^9, {3.5559627484519744`*^9, 
   3.555962760331991*^9}, {3.558897368802059*^9, 3.5588973840420804`*^9}, 
   3.558906841384453*^9, {3.5589119084815474`*^9, 3.5589119574616156`*^9}, {
   3.558912370822194*^9, 3.5589123709621944`*^9}, 3.5590664840800095`*^9, {
   3.5590665890008783`*^9, 3.5590666073072014`*^9}, {3.5590852197498875`*^9, 
   3.559085264328438*^9}, 3.5590854642548723`*^9, {3.559085723861721*^9, 
   3.559085723861721*^9}, {3.5590862853648376`*^9, 3.559086310641283*^9}, 
   3.5591548156862626`*^9, {3.5591548699553666`*^9, 3.559154870589403*^9}, {
   3.5591566321181564`*^9, 3.5591566335682397`*^9}, {3.5591568256782274`*^9, 
   3.559156826611281*^9}, {3.5591569836132607`*^9, 3.559156984842331*^9}, {
   3.559157034073147*^9, 3.5591570396804676`*^9}, 3.5591591039905396`*^9, {
   3.55931388880492*^9, 3.559313891907098*^9}, {3.559314163082608*^9, 
   3.559314163082608*^9}, {3.559314654597721*^9, 3.559314671171669*^9}, {
   3.5593172048095846`*^9, 3.5593172067596965`*^9}, {3.559317243278785*^9, 
   3.5593172651140337`*^9}, 3.559322224503695*^9, 3.5593272945086827`*^9, {
   3.5593276726403103`*^9, 3.5593276899513006`*^9}, {3.559329945593316*^9, 
   3.559329945593316*^9}, {3.5593580491814785`*^9, 3.559358051773627*^9}, 
   3.5595196699782534`*^9, {3.55953832153156*^9, 3.5595383375184746`*^9}, 
   3.5595831106549544`*^9, 3.559670480508232*^9, 3.559670598419976*^9, {
   3.559675870449519*^9, 3.5596758945628986`*^9}, {3.559676095562395*^9, 
   3.5596761089461603`*^9}, {3.5597868851384087`*^9, 
   3.5597868959560275`*^9}, {3.5597872209046135`*^9, 
   3.5597872381255984`*^9}, {3.559859496235865*^9, 3.5598594972299223`*^9}, {
   3.5598595437693496`*^9, 3.5598595674696074`*^9}, {3.5598595987368393`*^9, 
   3.5598596114365597`*^9}, 3.5598600060276456`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.559156639765594*^9, 
   3.559156639765594*^9}, {3.559157061991744*^9, 3.559157061991744*^9}, {
   3.559314166595809*^9, 3.559314166595809*^9}, {3.5593146767159863`*^9, 
   3.5593146767159863`*^9}, {3.5593174250421815`*^9, 3.559317426120243*^9}, {
   3.55932769762774*^9, 3.5593276976287403`*^9}, {3.5593299521256895`*^9, 
   3.55932995212669*^9}, {3.559675903385403*^9, 3.559675903385403*^9}, {
   3.559786897641124*^9, 3.559786897641124*^9}, {3.559787247257121*^9, 
   3.559787247257121*^9}, {3.559859497996966*^9, 3.559859497996966*^9}, {
   3.559859545925473*^9, 3.559859546500506*^9}, {3.559859590221352*^9, 
   3.5598596167228622`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox["v", "n"], "u"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox["v", 
       RowBox[{"n", "+", "1"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], ")"}]}]]}]}], 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{"1", ",", 
     RowBox[{"n", "+", "1"}], ",", 
     RowBox[{"n", "+", "2"}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"a", " ", "v"}], 
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}]]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.5591566419517193`*^9, 
   3.5591566428227687`*^9}, 3.5591568509826746`*^9, {3.5591570981548123`*^9, 
   3.559157119690044*^9}, {3.5593139698105536`*^9, 3.5593140944556828`*^9}, {
   3.559317474116988*^9, 3.5593174971283045`*^9}, {3.5595196715793447`*^9, 
   3.5595196851691217`*^9}, 3.5595198169576597`*^9, {3.559538321548561*^9, 
   3.5595383375524764`*^9}, {3.559583110668955*^9, 3.559583110679956*^9}, {
   3.559670480526233*^9, 3.559670480541234*^9}, {3.559670598423977*^9, 
   3.559670598429977*^9}, {3.559671322277379*^9, 3.559671322279379*^9}, 
   3.5596759326420765`*^9, {3.5597870483267426`*^9, 3.5597870888310595`*^9}, 
   3.559787223532764*^9, {3.5597873175811434`*^9, 3.559787321877389*^9}, {
   3.559859498613001*^9, 3.559859503365273*^9}, {3.559859547123542*^9, 
   3.5598595484286165`*^9}, {3.559859626665388*^9, 3.559859672142942*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.559314424508561*^9, 3.559314430001875*^9}, 
   3.559519919910548*^9, 3.559521389707616*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"v_", "^", "n_"}], "/", "u_"}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"v", "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "u"}], "-", 
            RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}], "*", 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{"1", ",", 
         RowBox[{"n", "+", "1"}], ",", 
         RowBox[{"n", "+", "2"}], ",", 
         RowBox[{
          RowBox[{"-", "a"}], "*", 
          RowBox[{"v", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
       " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.536602612371271*^9, 3.536602634709549*^9}, 3.5384420114712086`*^9, 
   3.5384421144721003`*^9, {3.5384422948934193`*^9, 3.538442301402792*^9}, {
   3.5384424300471497`*^9, 3.538442443048894*^9}, {3.5384426348784547`*^9, 
   3.5384426371365843`*^9}, {3.5384427182777176`*^9, 
   3.5384427227439704`*^9}, {3.5496603033196163`*^9, 
   3.5496603042796173`*^9}, {3.5496606214900613`*^9, 
   3.5496606565101104`*^9}, {3.5597610928018866`*^9, 3.559761120013443*^9}, {
   3.5597617664344163`*^9, 3.559761766444417*^9}, {3.559762850043395*^9, 
   3.559762861796067*^9}, {3.559767917882259*^9, 3.5597679317720537`*^9}, {
   3.5597679647839413`*^9, 3.559768002973126*^9}, {3.5597771090619698`*^9, 
   3.5597771137912397`*^9}, {3.559787288627487*^9, 3.559787290938619*^9}, {
   3.559787332993025*^9, 3.5597874024019947`*^9}, {3.559859507468502*^9, 
   3.5598595185071154`*^9}, {3.559859549334668*^9, 3.559859553635914*^9}, {
   3.559859774973654*^9, 3.5598598225571733`*^9}, 3.706141775468508*^9, 
   3.7154756168663177`*^9, 3.715475677992814*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox["u"], 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, {3.5192520188581386`*^9, 
   3.519252047359389*^9}, {3.5193215842126756`*^9, 3.519321601263506*^9}, {
   3.5194119314592657`*^9, 3.519411931802466*^9}, {3.5197938910231733`*^9, 
   3.519793891225974*^9}, {3.521473802252653*^9, 3.5214738265526876`*^9}, {
   3.521474098923069*^9, 3.5214741010730715`*^9}, {3.5233165069443364`*^9, 
   3.5233165069443364`*^9}, {3.523316543544388*^9, 3.523316543544388*^9}, {
   3.523318428619928*^9, 3.523318428859928*^9}, {3.5239323924621134`*^9, 
   3.5239324122429485`*^9}, 3.5239326458689585`*^9, {3.5239330052311897`*^9, 
   3.5239330237640224`*^9}, {3.523933495508851*^9, 3.5239335187528915`*^9}, {
   3.524106200923136*^9, 3.524106201297537*^9}, {3.5242761346200876`*^9, 
   3.524276134791688*^9}, {3.530500206473963*^9, 3.530500206783963*^9}, {
   3.531336530952592*^9, 3.5313365316435857`*^9}, {3.539393638949239*^9, 
   3.53939363913825*^9}, {3.5601128182140765`*^9, 3.560112832404096*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox["u"], 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"a", " ", "b"}], ">", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, {
   3.523933074292511*^9, 3.523933086226532*^9}, {3.5239331655838714`*^9, 
   3.523933176644291*^9}, 3.523933499908059*^9, {3.5239355738693013`*^9, 
   3.5239355738693013`*^9}, {3.5601128418741093`*^9, 3.560112877324159*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"a", " ", "b"}], ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4954223457721186`*^9, 
   3.4954223698921523`*^9}, {3.495422809672768*^9, 3.4954228678728495`*^9}, {
   3.495422999683034*^9, 3.4954230032130384`*^9}, {3.4954233713935547`*^9, 
   3.495423398813593*^9}, {3.4954234509036655`*^9, 3.4954234541136703`*^9}, {
   3.4954236049638815`*^9, 3.4954236208939037`*^9}, {3.4955916431376495`*^9, 
   3.49559164362125*^9}, {3.5239355680660915`*^9, 3.5239355680660915`*^9}, {
   3.5601129855743103`*^9, 3.5601129855743103`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["u"], 
     SqrtBox["v"]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "   ", 
     FractionBox["2", 
      SqrtBox[
       RowBox[{"a", " ", "b"}]]]}]}], 
   RowBox[{"ArcTanh", "[", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{"a", " ", "b"}]], " ", 
      SqrtBox["u"]}], 
     RowBox[{"a", 
      SqrtBox["v"]}]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495422441222252*^9, 3.4954224733722973`*^9, 
   3.49542261091249*^9, {3.4954226829125905`*^9, 3.4954226975926113`*^9}, {
   3.495423050323105*^9, 3.4954231021331778`*^9}, 3.4954233506135254`*^9, 
   3.495423494923727*^9, 3.4954235863638554`*^9, 3.495591630392427*^9, {
   3.560112990834318*^9, 3.5601130126143484`*^9}, 3.5601133675848455`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", "u_", "]"}], "*", 
       RowBox[{"Sqrt", "[", "v_", "]"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "/", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{"a", "*", "b"}], ",", "2"}], "]"}]}], "*", 
       RowBox[{"ArcTanh", "[", 
        RowBox[{
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{"a", "*", "b"}], ",", "2"}], "]"}], "*", 
         RowBox[{
          RowBox[{"Sqrt", "[", "u", "]"}], "/", 
          RowBox[{"(", 
           RowBox[{"a", "*", 
            RowBox[{"Sqrt", "[", "v", "]"}]}], ")"}]}]}], "]"}]}], " ", "/;", 
      "\n", " ", 
      RowBox[{
       RowBox[{"NeQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "*", "u"}], "-", 
          RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"PosQ", "[", 
        RowBox[{"a", "*", "b"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4954222457419786`*^9, 3.49542257518244*^9, {
   3.4954226384825287`*^9, 3.495422640262531*^9}, {3.495422979083005*^9, 
   3.495422986193015*^9}, {3.4954232118433313`*^9, 3.4954232206733437`*^9}, {
   3.4954234342736425`*^9, 3.495423439223649*^9}, {3.4954235290337753`*^9, 
   3.495423538163788*^9}, {3.495591652263665*^9, 3.4955917086733646`*^9}, {
   3.4960962839137354`*^9, 3.496096295473752*^9}, 3.523935587269725*^9, {
   3.5601130303843737`*^9, 3.5601131186744967`*^9}, 3.560113371234851*^9, 
   3.7061417754885073`*^9, 3.715475619969496*^9, 3.715475678000815*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SqrtBox["u"], 
       SqrtBox["v"]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox[
      RowBox[{
       StyleBox[" ",
        FontFamily->"Arial",
        FontWeight->"Plain"], " "}]], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"\[Not]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", " ", "b"}], ">", "0"}], ")"}]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, {
   3.523933074292511*^9, 3.523933086226532*^9}, {3.5239331655838714`*^9, 
   3.523933176644291*^9}, 3.523933499908059*^9, {3.5239355738693013`*^9, 
   3.5239355738693013`*^9}, {3.5601128418741093`*^9, 3.560112877324159*^9}, {
   3.5601131539845467`*^9, 3.560113161794557*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"\[Not]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"a", " ", "b"}], ">", "0"}], ")"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4954223457721186`*^9, 
   3.4954223698921523`*^9}, {3.495422809672768*^9, 3.4954228678728495`*^9}, {
   3.495422999683034*^9, 3.4954230032130384`*^9}, {3.4954233713935547`*^9, 
   3.495423398813593*^9}, {3.4954234509036655`*^9, 3.4954234541136703`*^9}, {
   3.4954236049638815`*^9, 3.4954236208939037`*^9}, {3.4955916431376495`*^9, 
   3.49559164362125*^9}, {3.5239355680660915`*^9, 3.5239355680660915`*^9}, {
   3.5601129855743103`*^9, 3.5601129855743103`*^9}, {3.5601131638745604`*^9, 
   3.5601131638745604`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SqrtBox["u"], 
     SqrtBox["v"]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "   ", 
     FractionBox["2", 
      SqrtBox[
       RowBox[{
        RowBox[{"-", "a"}], " ", "b"}]]]}]}], 
   RowBox[{"ArcTan", "[", 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{
        RowBox[{"-", "a"}], " ", "b"}]], " ", 
      SqrtBox["u"]}], 
     RowBox[{"a", 
      SqrtBox["v"]}]], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495422441222252*^9, 3.4954224733722973`*^9, 
   3.49542261091249*^9, {3.4954226829125905`*^9, 3.4954226975926113`*^9}, {
   3.495423050323105*^9, 3.4954231021331778`*^9}, 3.4954233506135254`*^9, 
   3.495423494923727*^9, 3.4954235863638554`*^9, 3.495591630392427*^9, {
   3.560112990834318*^9, 3.5601130126143484`*^9}, {3.5601131734745736`*^9, 
   3.560113180734584*^9}, 3.560113364644841*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", "u_", "]"}], "*", 
       RowBox[{"Sqrt", "[", "v_", "]"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], 
  " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "/", 
        RowBox[{"Rt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "a"}], "*", "b"}], ",", "2"}], "]"}]}], "*", 
       RowBox[{"ArcTan", "[", 
        RowBox[{
         RowBox[{"Rt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "a"}], "*", "b"}], ",", "2"}], "]"}], "*", 
         RowBox[{
          RowBox[{"Sqrt", "[", "u", "]"}], "/", 
          RowBox[{"(", 
           RowBox[{"a", "*", 
            RowBox[{"Sqrt", "[", "v", "]"}]}], ")"}]}]}], "]"}]}], " ", "/;", 
      "\n", " ", 
      RowBox[{
       RowBox[{"NeQ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"b", "*", "u"}], "-", 
          RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"NegQ", "[", 
        RowBox[{"a", "*", "b"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{"PiecewiseLinearQ", "[", 
    RowBox[{"u", ",", "v", ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4954222457419786`*^9, 3.49542257518244*^9, {
   3.4954226384825287`*^9, 3.495422640262531*^9}, {3.495422979083005*^9, 
   3.495422986193015*^9}, {3.4954232118433313`*^9, 3.4954232206733437`*^9}, {
   3.4954234342736425`*^9, 3.495423439223649*^9}, {3.4954235290337753`*^9, 
   3.495423538163788*^9}, {3.495591652263665*^9, 3.4955917086733646`*^9}, {
   3.4960962839137354`*^9, 3.496096295473752*^9}, 3.523935587269725*^9, {
   3.5601130303843737`*^9, 3.5601131186744967`*^9}, {3.5601131660445633`*^9, 
   3.560113166914564*^9}, {3.5601131994046097`*^9, 3.5601132039546165`*^9}, 
   3.5601133777148595`*^9, 3.7061417755085077`*^9, 3.715475624401749*^9, 
   3.7154756780088153`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", 
       " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.5195392931088047`*^9, 3.51953929576081*^9}, 
   3.5195394267074394`*^9, {3.5196773980538087`*^9, 3.5196774025801287`*^9}, 
   3.5214730195115576`*^9, {3.5214731380617237`*^9, 3.521473193531801*^9}, {
   3.521474138193124*^9, 3.5214741420331287`*^9}, {3.5214741988932085`*^9, 
   3.5214742007232113`*^9}, {3.523316621154496*^9, 3.523316621154496*^9}, {
   3.523316677984576*^9, 3.523316677984576*^9}, {3.523318504907651*^9, 
   3.523318504907651*^9}, {3.5233186383938627`*^9, 3.5233186383938627`*^9}, {
   3.5239305352476516`*^9, 3.5239305488820753`*^9}, {3.523930672309492*^9, 
   3.523930672309492*^9}, 3.5239309115983124`*^9, {3.523933530858513*^9, 
   3.5239335310769134`*^9}, {3.524075600639838*^9, 3.524075600639838*^9}, {
   3.5240758162790165`*^9, 3.5240758181822205`*^9}, {3.524075856963888*^9, 
   3.524075857385089*^9}, {3.524078257199704*^9, 3.5240782594929085`*^9}, {
   3.5597602983454466`*^9, 3.5597603114561963`*^9}, {3.559762289744348*^9, 
   3.559762289744348*^9}, {3.559778784212783*^9, 3.5597787846338067`*^9}, {
   3.559785339412998*^9, 3.559785343761247*^9}, {3.55987207454212*^9, 
   3.559872074741132*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Derivation: ",
 "Piecewise linear recurrence",
 " 3 with ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239220156159697`*^9, 3.52392201592797*^9}, 3.5239223352261305`*^9, {
   3.5239307903392997`*^9, 3.5239308079517307`*^9}, {3.526065122802639*^9, 
   3.5260651232326393`*^9}, 3.5597627330187016`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522954055566*^9, 
   3.496522961435576*^9}, {3.4965235043463364`*^9, 3.496523542226389*^9}, {
   3.519321910658849*^9, 3.519321919020464*^9}, {3.519330164679507*^9, 
   3.519330166099509*^9}, {3.5196774897152166`*^9, 3.519677527073291*^9}, {
   3.519677638011245*^9, 3.5196776412550445`*^9}, {3.5214732412718678`*^9, 
   3.5214732412718678`*^9}, {3.5214742174532347`*^9, 
   3.5214742174532347`*^9}, {3.5239305744349203`*^9, 
   3.5239305744349203`*^9}, {3.523930674368696*^9, 3.523930674368696*^9}, {
   3.5239308717870426`*^9, 3.523930874829048*^9}, {3.5240756046802454`*^9, 
   3.5240756046802454`*^9}, {3.524075826138234*^9, 3.524075826138234*^9}, 
   3.5597622899193583`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], " ", 
   SuperscriptBox["v", "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "   ", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox["v", 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"b", " ", "u"}], "-", 
          RowBox[{"a", " ", "v"}]}], ")"}]}]]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, 3.496521754163868*^9, 3.496521905004079*^9, 
   3.4965220047578273`*^9, {3.4965229323055353`*^9, 3.4965229444355526`*^9}, {
   3.4965234815163045`*^9, 3.4965234935663214`*^9}, {3.5239305919381514`*^9, 
   3.523930596477759*^9}, {3.523930677956702*^9, 3.5239306826211104`*^9}, 
   3.5239307266287875`*^9, 3.5239309087591076`*^9, {3.559760298363447*^9, 
   3.5597603114781976`*^9}, {3.5597627854126987`*^9, 3.5597628119902186`*^9}, 
   3.5597643231996546`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"u", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
       RowBox[{
        RowBox[{"v", "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}], "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"b", "*", "u"}], "-", 
            RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}]}], " ", "/;", "\n", 
      " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "2"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965217351278405`*^9, {3.496521928168912*^9, 3.4965219518489447`*^9}, {
   3.496522894915483*^9, 3.4965229201955185`*^9}, 3.4965234393662453`*^9, 
   3.4965234722962914`*^9, 3.5192451272328806`*^9, {3.5196775782428265`*^9, 
   3.5196775983406353`*^9}, {3.5196776462826214`*^9, 3.519677649218917*^9}, {
   3.521473289761936*^9, 3.521473312091967*^9}, {3.521474229203251*^9, 
   3.5214742310732536`*^9}, 3.523930704039948*^9, {3.5239308415385895`*^9, 
   3.523930850524205*^9}, 3.5239308852810664`*^9, {3.5239309626260023`*^9, 
   3.5239309634840035`*^9}, 3.524075620108672*^9, {3.5240758312862434`*^9, 
   3.524075832471845*^9}, {3.5241542997143984`*^9, 3.5241543044344053`*^9}, {
   3.5249475715736384`*^9, 3.5249475816636524`*^9}, 3.531287115162221*^9, 
   3.531287315330048*^9, {3.5422493176002593`*^9, 3.5422493209254494`*^9}, 
   3.559761098857233*^9, 3.559761138339491*^9, {3.559761766063395*^9, 
   3.5597617660723953`*^9}, {3.5597628497993813`*^9, 3.559762978301731*^9}, {
   3.5597630490497775`*^9, 3.5597630530130043`*^9}, 3.559764368956272*^9, 
   3.5597781857465525`*^9, 3.706141718698428*^9, {3.7061417755285077`*^9, 
   3.7061417755485077`*^9}, 3.7154756272339115`*^9, 3.7154756780168157`*^9, {
   3.715475741715459*^9, 3.715475748959873*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"n", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194144390272694`*^9}, {
   3.5197939472612724`*^9, 3.5197939475576725`*^9}, {3.519794027258213*^9, 
   3.5197940275234137`*^9}, 3.5197951504913855`*^9, {3.520010298749789*^9, 
   3.52001029907979*^9}, {3.523218684966897*^9, 3.5232186851968975`*^9}, {
   3.5232187292469587`*^9, 3.5232187352869673`*^9}, {3.5232190227673697`*^9, 
   3.523219075237443*^9}, {3.523219234477666*^9, 3.523219259137701*^9}, {
   3.5233166477245336`*^9, 3.5233166477245336`*^9}, {3.5233185446841087`*^9, 
   3.5233185446841087`*^9}, {3.5233185763349605`*^9, 
   3.5233185763349605`*^9}, {3.523922068266062*^9, 3.5239220901373005`*^9}, {
   3.5239302295283146`*^9, 3.5239302295283146`*^9}, {3.524076080543481*^9, 
   3.524076080543481*^9}, {3.524078418254387*^9, 3.5240784270060024`*^9}, {
   3.524078488797711*^9, 3.524078488797711*^9}, {3.524079006874621*^9, 
   3.524079006874621*^9}, {3.524276139846097*^9, 3.524276140080097*^9}, {
   3.524277148840269*^9, 3.5242771495266705`*^9}, {3.5305002145239744`*^9, 
   3.5305002155739756`*^9}, {3.5313467755736337`*^9, 3.531346776004253*^9}, {
   3.5361011317648096`*^9, 3.5361011320428257`*^9}, {3.539393649173824*^9, 
   3.539393649374835*^9}, {3.559760298670465*^9, 3.5597603115292006`*^9}, {
   3.559762292073481*^9, 3.559762292073481*^9}, {3.5597659461904845`*^9, 
   3.559765946560506*^9}, {3.5597663343446856`*^9, 3.559766335236737*^9}, 
   3.559785171937419*^9, {3.55978535937614*^9, 3.5597853798763127`*^9}, {
   3.5598720761072097`*^9, 3.55987207628922*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise linear recurrence 1\
\>", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, 
   3.5239218927501535`*^9, 3.5239223317317247`*^9, 3.5240775364160385`*^9, 
   3.559762733109707*^9}],

Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, 
   3.5239218927501535`*^9, 3.5239223317317247`*^9, 3.5240775364160385`*^9, 
   3.559762733109707*^9, {3.5597663843245444`*^9, 3.559766391116933*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[NotEqual]", "0"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957339078770905`*^9, 
   3.495733966267172*^9}, {3.495734148157427*^9, 3.4957341584974413`*^9}, {
   3.4957346698781567`*^9, 3.495734670108157*^9}, {3.4957347778783083`*^9, 
   3.4957348688784356`*^9}, {3.5182850739057484`*^9, 
   3.5182850817837625`*^9}, {3.5193219410789022`*^9, 
   3.5193219437309074`*^9}, {3.5193301726195183`*^9, 
   3.5193301738595195`*^9}, {3.5199710233740273`*^9, 3.519971026084031*^9}, {
   3.519971058314076*^9, 3.519971083934112*^9}, {3.523219270157716*^9, 
   3.523219270157716*^9}, {3.523924231484662*^9, 3.523924232592264*^9}, {
   3.523930223132303*^9, 3.5239302243647056`*^9}, {3.5240760831174855`*^9, 
   3.5240760831174855`*^9}, {3.5240785125097523`*^9, 
   3.5240785125097523`*^9}, {3.524078997218204*^9, 3.5240789981542053`*^9}, 
   3.5597622922394905`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], " ", 
    SuperscriptBox["v", "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox["v", "n"]}], 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], 
    RowBox[{"a", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", 
      RowBox[{"m", "+", "1"}]], " ", 
     SuperscriptBox["v", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
   3.4957347552282763`*^9, 3.5239232039608574`*^9, {3.523923243678527*^9, 
   3.523923288731406*^9}, {3.5597602986914663`*^9, 3.559760311560202*^9}, {
   3.5597661183823338`*^9, 3.559766134965282*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"v", "^", "n"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"b", "*", 
        RowBox[{"n", "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", 
            RowBox[{"(", 
             RowBox[{"m", "+", "1"}], ")"}]}], "*", 
           RowBox[{"v", "^", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
       "\n", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", 
    RowBox[{"(*", " ", 
     RowBox[{"&&", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], ",", "0"}], "]"}]}], " ", "*)"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"(", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"LtQ", "[", 
        RowBox[{"m", ",", 
         RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
       RowBox[{"GtQ", "[", 
        RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"Not", "[", 
        RowBox[{
         RowBox[{"ILtQ", "[", 
          RowBox[{
           RowBox[{"m", "+", "n"}], ",", 
           RowBox[{"-", "2"}]}], "]"}], " ", "&&", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"FractionQ", "[", "m", "]"}], " ", "||", " ", 
           RowBox[{"GeQ", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"2", "*", "n"}], "+", "m", "+", "1"}], ",", "0"}], 
            "]"}]}], ")"}]}], "]"}]}], " ", "||", " ", "\n", "  ", 
      RowBox[{
       RowBox[{"IGtQ", "[", 
        RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"IGtQ", "[", 
        RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"LeQ", "[", 
        RowBox[{"n", ",", "m"}], "]"}]}], " ", "||", "\n", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"ILtQ", "[", 
          RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
         RowBox[{"ILtQ", "[", 
          RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
         RowBox[{"LeQ", "[", 
          RowBox[{"n", ",", "m"}], "]"}]}], " ", "||"}], " ", "*)"}], "\n", 
      "  ", 
      RowBox[{
       RowBox[{"IGtQ", "[", 
        RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"Not", "[", 
        RowBox[{"IntegerQ", "[", "m", "]"}], "]"}]}], " ", "||", "\n", "  ", 
      RowBox[{
       RowBox[{"ILtQ", "[", 
        RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"Not", "[", 
        RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.5239318270547204`*^9, {
   3.5239321737653294`*^9, 3.52393218559015*^9}, {3.523932237429041*^9, 
   3.523932244105853*^9}, 3.5240849686870804`*^9, {3.539918162816128*^9, 
   3.5399181836161575`*^9}, {3.542249191502047*^9, 3.5422492175045347`*^9}, {
   3.5583239232671504`*^9, 3.5583239271359572`*^9}, {3.5583250467503233`*^9, 
   3.558325070462365*^9}, 3.5597610739718094`*^9, 3.559761119752428*^9, {
   3.559761766017392*^9, 3.5597619505419464`*^9}, {3.5597622139750137`*^9, 
   3.559762214757059*^9}, {3.5597661981328945`*^9, 3.559766240091295*^9}, {
   3.5597662910852118`*^9, 3.5597662938653708`*^9}, {3.559773945288012*^9, 
   3.5597739647891273`*^9}, 3.5597741060352063`*^9, {3.5597749015597076`*^9, 
   3.5597749097601767`*^9}, {3.55977496174515*^9, 3.5597749764069886`*^9}, {
   3.559775017485338*^9, 3.5597750228486447`*^9}, {3.55977505965275*^9, 
   3.5597750759226804`*^9}, {3.559775222260051*^9, 3.5597752428712296`*^9}, 
   3.5597752843456016`*^9, {3.559863541993008*^9, 3.5598635447651668`*^9}, {
   3.559864384363922*^9, 3.5598643893452067`*^9}, {3.5598805767211504`*^9, 
   3.5598805821734505`*^9}, {3.706141775568508*^9, 3.7061417755885077`*^9}, 
   3.715475629588046*^9, 3.7154756780268164`*^9, {3.715475762431644*^9, 
   3.715475907873963*^9}, {3.7154759386707244`*^9, 3.7154759945699215`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[NotEqual]", "0"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n", "+", "1"}], "\[NotEqual]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5242761432469025`*^9, 3.524276143496503*^9}, {3.5242771518198743`*^9, 
   3.5242771521630745`*^9}, {3.53050021879398*^9, 3.5305002190639806`*^9}, {
   3.5313467792889757`*^9, 3.531346779609437*^9}, {3.5332483759292145`*^9, 
   3.533248378049217*^9}, {3.5361011340389395`*^9, 3.5361011342609525`*^9}, {
   3.5393936513939505`*^9, 3.539393651589962*^9}, {3.5597602987184677`*^9, 
   3.559760311575203*^9}, {3.5597622924045*^9, 3.5597622924055*^9}, {
   3.5597663431011868`*^9, 3.5597663435022097`*^9}, {3.5597855003192015`*^9, 
   3.5597855007092237`*^9}, {3.559872077543292*^9, 3.5598720783893404`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise linear recurrence 2\
\>", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239219320466223`*^9, 3.523921932483423*^9}, 3.523922332636526*^9, 
   3.5240774276838474`*^9, 3.559762733210713*^9}],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.4964493315022907`*^9, 3.496451849815816*^9, 3.4964519519959593`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[NotEqual]", "0"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n", "+", "1"}], "\[NotEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.4957339078770905`*^9, 
   3.495733966267172*^9}, {3.495734148157427*^9, 3.4957341584974413`*^9}, {
   3.4957346698781567`*^9, 3.495734670108157*^9}, {3.4957347778783083`*^9, 
   3.4957348688784356`*^9}, {3.4957353058790474`*^9, 
   3.4957353764991465`*^9}, {3.495735447019245*^9, 3.4957354738692827`*^9}, {
   3.495735673029561*^9, 3.495735708249611*^9}, {3.495735761689686*^9, 
   3.495735816759763*^9}, {3.519321952763323*^9, 3.5193219564137297`*^9}, {
   3.5193301751295214`*^9, 3.5193301764895234`*^9}, {3.51997092534389*^9, 
   3.519970926503892*^9}, {3.519970958153936*^9, 3.5199709599639387`*^9}, {
   3.5232193431478186`*^9, 3.5232193431478186`*^9}, {3.523219382187873*^9, 
   3.523219382187873*^9}, {3.5239242373346725`*^9, 3.5239242378182735`*^9}, {
   3.52392508992297*^9, 3.52392509564818*^9}, {3.5239302376559286`*^9, 
   3.52393025562716*^9}, {3.5240761723340425`*^9, 3.5240761723340425`*^9}, {
   3.5240785078765445`*^9, 3.5240785078765445`*^9}, {3.5240792759594936`*^9, 
   3.5240792759594936`*^9}, {3.533248403779253*^9, 3.533248403779253*^9}, 
   3.5597622925715094`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], 
    SuperscriptBox["v", "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox["v", "n"]}], 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{"m", "+", "n", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"n", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "u"}], "-", 
       RowBox[{"a", " ", "v"}]}], ")"}]}], 
    RowBox[{"a", 
     RowBox[{"(", 
      RowBox[{"m", "+", "n", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, {3.495733875467045*^9, 3.4957338981670766`*^9}, 
   3.4957347552282763`*^9, 3.4957352122989163`*^9, 3.495735613359478*^9, {
   3.519245772243784*^9, 3.519245774883787*^9}, {3.523923312069047*^9, 
   3.5239233801163664`*^9}, 3.5239234676169205`*^9, {3.5597602987374687`*^9, 
   3.559760311604205*^9}, {3.5597665218974133`*^9, 3.559766543057624*^9}, {
   3.5597738448792686`*^9, 3.559773846432358*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_."}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"v", "^", "n"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", 
       " ", "\[IndentingNewLine]", "  ", 
       RowBox[{"n", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", "m"}], "*", 
           RowBox[{"v", "^", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
       "\n", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "2"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "1"}], ",", "0"}], "]"}], " ", "&&", " ", 
    "\n", "  ", 
    RowBox[{"Not", "[", 
     RowBox[{
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "&&", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Not", "[", 
         RowBox[{"IntegerQ", "[", "n", "]"}], "]"}], " ", "||", " ", 
        RowBox[{"LtQ", "[", 
         RowBox[{"0", ",", "m", ",", "n"}], "]"}]}], ")"}]}], "]"}], " ", "&&",
     " ", "\n", "  ", 
    RowBox[{"Not", "[", 
     RowBox[{"ILtQ", "[", 
      RowBox[{
       RowBox[{"m", "+", "n"}], ",", 
       RowBox[{"-", "2"}]}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957338140769587`*^9, {3.495734137617412*^9, 
   3.4957341399074154`*^9}, {3.495734511017935*^9, 3.495734528517959*^9}, 
   3.4957347273482375`*^9, 3.495735153298834*^9, {3.495735298589037*^9, 
   3.4957353008290405`*^9}, 3.4957355751594243`*^9, {3.4957356510695305`*^9, 
   3.4957356533595343`*^9}, {3.495735877319847*^9, 3.495735880499852*^9}, {
   3.5192457788337927`*^9, 3.519245781843797*^9}, {3.5195345973873577`*^9, 
   3.519534614016987*^9}, 3.519534727507186*^9, {3.519534795242505*^9, 
   3.5195348019193163`*^9}, 3.5195348785154514`*^9, {3.5195350295705166`*^9, 
   3.5195350491641507`*^9}, {3.519535092641427*^9, 3.5195351693935623`*^9}, {
   3.519535655591216*^9, 3.5195356593664227`*^9}, {3.519606160650326*^9, 
   3.519606163090329*^9}, {3.519606452020734*^9, 3.519606460970746*^9}, {
   3.519606533840848*^9, 3.5196065552708783`*^9}, {3.5196066384009943`*^9, 
   3.519606639350996*^9}, {3.519606960391445*^9, 3.519606964641451*^9}, {
   3.519607006101509*^9, 3.519607008071512*^9}, {3.519690712415882*^9, 
   3.5196908122360215`*^9}, {3.5196913871068263`*^9, 3.519691398526842*^9}, {
   3.5196915172970085`*^9, 3.5196915212270145`*^9}, {3.519691676937232*^9, 
   3.5196917072072744`*^9}, {3.519691741697323*^9, 3.519691769957362*^9}, {
   3.519692141667883*^9, 3.519692177457933*^9}, 3.5196922088879766`*^9, {
   3.519692290588091*^9, 3.5196923019281073`*^9}, {3.5196923355481544`*^9, 
   3.5196923578281856`*^9}, {3.5196923898282304`*^9, 3.519692393298235*^9}, {
   3.519692695518658*^9, 3.5196926993486633`*^9}, {3.5196931055192323`*^9, 
   3.5196931104092393`*^9}, {3.519693151939297*^9, 3.5196931776293335`*^9}, {
   3.5196932172193885`*^9, 3.519693234669413*^9}, {3.519753326771507*^9, 
   3.5197533305155134`*^9}, {3.5198313113547344`*^9, 3.519831340838786*^9}, {
   3.519834362939569*^9, 3.51983439023713*^9}, {3.5198344273732543`*^9, 
   3.5198344481604433`*^9}, {3.5198350554380674`*^9, 
   3.5198350667580833`*^9}, {3.519972534776143*^9, 3.5199725378361473`*^9}, {
   3.519976145341198*^9, 3.5199761527812085`*^9}, {3.5200079367719154`*^9, 
   3.520007944571929*^9}, {3.5200079838683977`*^9, 3.5200080068628387`*^9}, {
   3.5200082042499847`*^9, 3.520008209163994*^9}, {3.520008268475298*^9, 
   3.520008272812105*^9}, {3.5200084631172194`*^9, 3.520008466417224*^9}, {
   3.520008565427363*^9, 3.52000858504739*^9}, {3.520008634227459*^9, 
   3.5200086454774747`*^9}, {3.520008679107522*^9, 3.520008707787562*^9}, {
   3.520009022878003*^9, 3.5200090267780085`*^9}, {3.520009114588132*^9, 
   3.520009115638133*^9}, {3.52000917751822*^9, 3.52000917788822*^9}, {
   3.520009232388296*^9, 3.520009233728298*^9}, {3.5200096803289237`*^9, 
   3.5200096817989254`*^9}, {3.5200097702990494`*^9, 3.520009789299076*^9}, {
   3.5200099246992655`*^9, 3.5200099606693163`*^9}, {3.520010018479397*^9, 
   3.5200100198093987`*^9}, {3.5200101574795914`*^9, 
   3.5200101701596093`*^9}, {3.523219291537746*^9, 3.523219307977769*^9}, {
   3.5232194303579407`*^9, 3.5232194305479407`*^9}, 3.523924040949127*^9, {
   3.523924083896003*^9, 3.523924086610408*^9}, 3.523924210381025*^9, 
   3.5239244595882626`*^9, {3.523925083277358*^9, 3.5239251500298758`*^9}, 
   3.5240762505213795`*^9, 3.524078560386237*^9, {3.524079201235362*^9, 
   3.5240792160553885`*^9}, {3.5240792615450683`*^9, 3.524079263245471*^9}, {
   3.52407931407036*^9, 3.524079315333963*^9}, {3.5240794632378225`*^9, 
   3.5240794666386285`*^9}, {3.5241038915762796`*^9, 3.524103955302392*^9}, {
   3.5241092335840626`*^9, 3.524109236189267*^9}, {3.5241093841867275`*^9, 
   3.5241094179919863`*^9}, {3.5241094771004906`*^9, 3.524109478598093*^9}, {
   3.5241592101752768`*^9, 3.524159214705283*^9}, {3.5241592921253915`*^9, 
   3.524159300245403*^9}, {3.5241593621054897`*^9, 3.5241593685654984`*^9}, {
   3.5241596320758677`*^9, 3.5241596554659004`*^9}, {3.5241597920960913`*^9, 
   3.5241597944060946`*^9}, {3.524171076647507*^9, 3.5241710855075197`*^9}, {
   3.5241902075571866`*^9, 3.5241902127207956`*^9}, {3.524190359891454*^9, 
   3.524190365991065*^9}, {3.524192455007534*^9, 3.524192459921543*^9}, {
   3.5241924983444104`*^9, 3.5241925008092146`*^9}, {3.524192578996552*^9, 
   3.524192580728155*^9}, {3.524192647355872*^9, 3.5241926520514803`*^9}, {
   3.5241926899907465`*^9, 3.5241927010667667`*^9}, {3.524192750394053*^9, 
   3.5241927779437017`*^9}, {3.5241928342598004`*^9, 
   3.5241928356014028`*^9}, {3.524192886363892*^9, 3.5241929290923667`*^9}, {
   3.5241930126929135`*^9, 3.5241930342209516`*^9}, 3.524253083175646*^9, 
   3.5242575379690695`*^9, 3.524258633652594*^9, 3.5249480915983686`*^9, {
   3.5332484110692635`*^9, 3.5332484132492666`*^9}, {3.5422492398098097`*^9, 
   3.5422492472312346`*^9}, {3.559761092622876*^9, 3.559761119849434*^9}, {
   3.559761766197403*^9, 3.5597617662104034`*^9}, {3.559762849900387*^9, 
   3.559762861701062*^9}, {3.559766435227456*^9, 3.5597664702564597`*^9}, {
   3.559766573360357*^9, 3.5597665848500137`*^9}, 3.559772204563448*^9, 
   3.5597726348900614`*^9, {3.7061417756185083`*^9, 3.706141775638508*^9}, 
   3.7154756308441176`*^9, 3.7154756780348167`*^9, {3.715476020893427*^9, 
   3.7154760907764244`*^9}, 3.7412211219240103`*^9, 3.742597731671009*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"v", "^", "n"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", 
       " ", "\[IndentingNewLine]", "  ", 
       RowBox[{"n", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", "*", "u"}], "-", 
           RowBox[{"a", "*", "v"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "*", 
           RowBox[{"(", 
            RowBox[{"m", "+", "n", "+", "1"}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", "m"}], "*", 
           RowBox[{"v", "^", 
            RowBox[{"Simplify", "[", 
             RowBox[{"n", "-", "1"}], "]"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
       "\n", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "1"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"RationalQ", "[", "n", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"SumSimplerQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.495391490771289*^9, 3.4957338140769587`*^9, {3.495734137617412*^9, 
   3.4957341399074154`*^9}, {3.495734511017935*^9, 3.495734528517959*^9}, 
   3.4957347273482375`*^9, 3.495735153298834*^9, {3.495735298589037*^9, 
   3.4957353008290405`*^9}, 3.4957355751594243`*^9, {3.4957356510695305`*^9, 
   3.4957356533595343`*^9}, {3.495735877319847*^9, 3.495735880499852*^9}, {
   3.5192457788337927`*^9, 3.519245781843797*^9}, {3.5195345973873577`*^9, 
   3.519534614016987*^9}, 3.519534727507186*^9, {3.519534795242505*^9, 
   3.5195348019193163`*^9}, 3.5195348785154514`*^9, {3.5195350295705166`*^9, 
   3.5195350491641507`*^9}, {3.519535092641427*^9, 3.5195351693935623`*^9}, {
   3.519535655591216*^9, 3.5195356593664227`*^9}, {3.519606160650326*^9, 
   3.519606163090329*^9}, {3.519606452020734*^9, 3.519606460970746*^9}, {
   3.519606533840848*^9, 3.5196065552708783`*^9}, {3.5196066384009943`*^9, 
   3.519606639350996*^9}, {3.519606960391445*^9, 3.519606964641451*^9}, {
   3.519607006101509*^9, 3.519607008071512*^9}, {3.519690712415882*^9, 
   3.5196908122360215`*^9}, {3.5196913871068263`*^9, 3.519691398526842*^9}, {
   3.5196915172970085`*^9, 3.5196915212270145`*^9}, {3.519691676937232*^9, 
   3.5196917072072744`*^9}, {3.519691741697323*^9, 3.519691769957362*^9}, {
   3.519692141667883*^9, 3.519692177457933*^9}, 3.5196922088879766`*^9, {
   3.519692290588091*^9, 3.5196923019281073`*^9}, {3.5196923355481544`*^9, 
   3.5196923578281856`*^9}, {3.5196923898282304`*^9, 3.519692393298235*^9}, {
   3.519692695518658*^9, 3.5196926993486633`*^9}, {3.5196931055192323`*^9, 
   3.5196931104092393`*^9}, {3.519693151939297*^9, 3.5196931776293335`*^9}, {
   3.5196932172193885`*^9, 3.519693234669413*^9}, {3.519753326771507*^9, 
   3.5197533305155134`*^9}, {3.5198313113547344`*^9, 3.519831340838786*^9}, {
   3.519834362939569*^9, 3.51983439023713*^9}, {3.5198344273732543`*^9, 
   3.5198344481604433`*^9}, {3.5198350554380674`*^9, 
   3.5198350667580833`*^9}, {3.519972534776143*^9, 3.5199725378361473`*^9}, {
   3.519976145341198*^9, 3.5199761527812085`*^9}, {3.5200079367719154`*^9, 
   3.520007944571929*^9}, {3.5200079838683977`*^9, 3.5200080068628387`*^9}, {
   3.5200082042499847`*^9, 3.520008209163994*^9}, {3.520008268475298*^9, 
   3.520008272812105*^9}, {3.5200084631172194`*^9, 3.520008466417224*^9}, {
   3.520008565427363*^9, 3.52000858504739*^9}, {3.520008634227459*^9, 
   3.5200086454774747`*^9}, {3.520008679107522*^9, 3.520008707787562*^9}, {
   3.520009022878003*^9, 3.5200090267780085`*^9}, {3.520009114588132*^9, 
   3.520009115638133*^9}, {3.52000917751822*^9, 3.52000917788822*^9}, {
   3.520009232388296*^9, 3.520009233728298*^9}, {3.5200096803289237`*^9, 
   3.5200096817989254`*^9}, {3.5200097702990494`*^9, 3.520009789299076*^9}, {
   3.5200099246992655`*^9, 3.5200099606693163`*^9}, {3.520010018479397*^9, 
   3.5200100198093987`*^9}, {3.5200101574795914`*^9, 
   3.5200101701596093`*^9}, {3.523219291537746*^9, 3.523219307977769*^9}, {
   3.5232194303579407`*^9, 3.5232194305479407`*^9}, 3.523924040949127*^9, {
   3.523924083896003*^9, 3.523924086610408*^9}, 3.523924210381025*^9, 
   3.5239244595882626`*^9, {3.523925083277358*^9, 3.5239251500298758`*^9}, 
   3.5240762505213795`*^9, 3.524078560386237*^9, {3.524079201235362*^9, 
   3.5240792160553885`*^9}, {3.5240792615450683`*^9, 3.524079263245471*^9}, {
   3.52407931407036*^9, 3.524079315333963*^9}, {3.5240794632378225`*^9, 
   3.5240794666386285`*^9}, {3.5241038915762796`*^9, 3.524103955302392*^9}, {
   3.5241092335840626`*^9, 3.524109236189267*^9}, {3.5241093841867275`*^9, 
   3.5241094179919863`*^9}, {3.5241094771004906`*^9, 3.524109478598093*^9}, {
   3.5241592101752768`*^9, 3.524159214705283*^9}, {3.5241592921253915`*^9, 
   3.524159300245403*^9}, {3.5241593621054897`*^9, 3.5241593685654984`*^9}, {
   3.5241596320758677`*^9, 3.5241596554659004`*^9}, {3.5241597920960913`*^9, 
   3.5241597944060946`*^9}, {3.524171076647507*^9, 3.5241710855075197`*^9}, {
   3.5241902075571866`*^9, 3.5241902127207956`*^9}, {3.524190359891454*^9, 
   3.524190365991065*^9}, {3.524192455007534*^9, 3.524192459921543*^9}, {
   3.5241924983444104`*^9, 3.5241925008092146`*^9}, {3.524192578996552*^9, 
   3.524192580728155*^9}, {3.524192647355872*^9, 3.5241926520514803`*^9}, {
   3.5241926899907465`*^9, 3.5241927010667667`*^9}, {3.524192750394053*^9, 
   3.5241927779437017`*^9}, {3.5241928342598004`*^9, 
   3.5241928356014028`*^9}, {3.524192886363892*^9, 3.5241929290923667`*^9}, {
   3.5241930126929135`*^9, 3.5241930342209516`*^9}, 3.524253083175646*^9, {
   3.5242575379690695`*^9, 3.524257585439953*^9}, {3.524257653830473*^9, 
   3.52425768596653*^9}, {3.5242578273183775`*^9, 3.524257849844817*^9}, {
   3.5242583470176907`*^9, 3.524258406204194*^9}, {3.524258443909461*^9, 
   3.5242584830811296`*^9}, {3.524258717331141*^9, 3.524258723727152*^9}, {
   3.5304170694691*^9, 3.530417084469121*^9}, {3.5369782762156286`*^9, 
   3.5369783143156824`*^9}, {3.5369788153263836`*^9, 
   3.5369788256863985`*^9}, {3.537125371134307*^9, 3.5371253764143143`*^9}, {
   3.542249251885501*^9, 3.542249260207977*^9}, {3.559761092649878*^9, 
   3.559761119873435*^9}, {3.559761766233405*^9, 3.5597617662444057`*^9}, {
   3.559762849918388*^9, 3.559762861717063*^9}, {3.55976664178027*^9, 
   3.559766687887907*^9}, 3.559772638746282*^9, {3.706141775648508*^9, 
   3.7061417756585083`*^9}, 3.715475632603218*^9, 3.7154756780438175`*^9, {
   3.715476109707507*^9, 3.7154761100125246`*^9}, 3.7412211246696153`*^9, 
   3.742597733876135*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["6:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"m", "+", "n", "+", "2"}], "\[NotEqual]", "0"}], " ", 
       "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.5194145072773895`*^9}, {
   3.5197939591952934`*^9, 3.519793959460494*^9}, {3.519794032437422*^9, 
   3.5197940326558228`*^9}, 3.519795155686195*^9, {3.5200148264181366`*^9, 
   3.520014826728137*^9}, {3.523218702396921*^9, 3.5232187026569214`*^9}, {
   3.5232187875870404`*^9, 3.5232187980170555`*^9}, {3.5232198518085303`*^9, 
   3.5232198518085303`*^9}, {3.5233166544645433`*^9, 
   3.5233166544645433`*^9}, {3.523316707224617*^9, 3.523316707224617*^9}, {
   3.5239220811984844`*^9, 3.5239221068293295`*^9}, {3.523922191724679*^9, 
   3.5239221961862864`*^9}, {3.5239303370749035`*^9, 
   3.5239303370749035`*^9}, {3.5240761949696817`*^9, 
   3.5240761949696817`*^9}, {3.524077661590658*^9, 3.5240776619026585`*^9}, {
   3.524078439720025*^9, 3.524078444400033*^9}, {3.5240784984541283`*^9, 
   3.524078525161375*^9}, {3.5242761464293084`*^9, 3.5242761467101088`*^9}, {
   3.5242771543782787`*^9, 3.52427715528308*^9}, {3.530500221433984*^9, 
   3.530500221903984*^9}, {3.5313467820128927`*^9, 3.5313467841359453`*^9}, {
   3.536101136367073*^9, 3.536101136541083*^9}, {3.5393936535670753`*^9, 
   3.539393653755086*^9}, {3.55976029876447*^9, 3.5597603116192055`*^9}, {
   3.5597622927375193`*^9, 3.5597622927375193`*^9}, {3.5597667576949*^9, 
   3.5597667580529203`*^9}, {3.559785503528385*^9, 3.5597855038994064`*^9}, {
   3.5598720804234567`*^9, 3.5598720808014784`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise linear recurrence 3\
\>", "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, 3.518279406700592*^9, {
   3.51840552316576*^9, 3.5184055392257824`*^9}, 3.5184748983401833`*^9, {
   3.5239220156159697`*^9, 3.52392201592797*^9}, 3.5239223352261305`*^9, 
   3.524077172638999*^9, 3.5597627333127184`*^9}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.4964493315022907`*^9, 3.496451849815816*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["u", "m"], " ", 
    SuperscriptBox["v", "n"]}], "\[Equal]", 
   RowBox[{
    SuperscriptBox["v", 
     RowBox[{"m", "+", "n", "+", "2"}]], " ", 
    FractionBox[
     SuperscriptBox["u", "m"], 
     SuperscriptBox["v", 
      RowBox[{"m", "+", "2"}]]]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{{3.4964415366109805`*^9, 3.496441558421011*^9}, {
   3.4964420168116527`*^9, 3.496442019391656*^9}, 3.496442294082041*^9, {
   3.4964502280635457`*^9, 3.496450274943611*^9}, {3.496451862475834*^9, 
   3.496451900615887*^9}, {3.534025408769347*^9, 3.534025450436206*^9}, {
   3.559760298773471*^9, 3.5597603116322064`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "+", "n", "+", "2"}], "\[NotEqual]", "0"}], " ", "\[And]", 
   " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, {
   3.496522165147252*^9, 3.4965222156073227`*^9}, {3.496522723415243*^9, 
   3.496522765635302*^9}, {3.496523221825941*^9, 3.4965232354159594`*^9}, {
   3.496523793466741*^9, 3.4965238105867653`*^9}, {3.496523849186819*^9, 
   3.496523869436847*^9}, {3.496524240927367*^9, 3.4965242872774324`*^9}, {
   3.496524601367872*^9, 3.496524684427988*^9}, {3.496525229068751*^9, 
   3.496525236998762*^9}, {3.519321961889339*^9, 3.5193219646193438`*^9}, {
   3.5193301777395253`*^9, 3.5193301789795265`*^9}, {3.51997075376365*^9, 
   3.5199707979637117`*^9}, {3.523924255929905*^9, 3.523924261031114*^9}, {
   3.5239258955519853`*^9, 3.5239258955519853`*^9}, {3.524076197184886*^9, 
   3.524076197184886*^9}, {3.5240785046005387`*^9, 3.5240785209337673`*^9}, 
   3.5597622929035287`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], 
    SuperscriptBox["v", "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["u", 
          RowBox[{"m", "+", "1"}]], " ", 
         SuperscriptBox["v", 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"b", " ", "u"}], "-", 
           RowBox[{"a", " ", "v"}]}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "n", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", "u"}], "-", 
       RowBox[{"a", " ", "v"}]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", 
      RowBox[{"m", "+", "1"}]], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, 3.496521757483873*^9, 3.4965219078240833`*^9, 
   3.4965221166879835`*^9, {3.496523166085863*^9, 3.496523193195901*^9}, 
   3.496523589126455*^9, 3.4965237789667206`*^9, 3.4965241874472923`*^9, 
   3.496524564957821*^9, 3.523923460628108*^9, {3.523923671790079*^9, 
   3.523923690042111*^9}, 3.5239239037780867`*^9, {3.5597602987814713`*^9, 
   3.559760311646207*^9}, {3.5597668700773277`*^9, 3.559766895706794*^9}, {
   3.5597670282063723`*^9, 3.559767046408414*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.5239247701536083`*^9, 3.523924774100415*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
        RowBox[{
         RowBox[{"v", "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"b", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "n", "+", "2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", 
            RowBox[{"(", 
             RowBox[{"m", "+", "1"}], ")"}]}], "*", 
           RowBox[{"v", "^", "n"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
      " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{"m", "+", "n", "+", "2"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, {
   3.496525206278719*^9, 3.4965252146987305`*^9}, {3.496525246928776*^9, 
   3.496525255068787*^9}, {3.517191220584426*^9, 3.517191223673231*^9}, 
   3.5198290200247097`*^9, {3.5198290561075735`*^9, 3.51982911128487*^9}, {
   3.519829150004138*^9, 3.519829150253739*^9}, {3.519831388060069*^9, 
   3.519831392459277*^9}, {3.5198315094594827`*^9, 3.5198315116278863`*^9}, {
   3.519831575151198*^9, 3.5198315776784024`*^9}, 3.5199707268036118`*^9, {
   3.519970770203673*^9, 3.5199707712836742`*^9}, {3.520015955183719*^9, 
   3.5200159597337255`*^9}, {3.520016023403815*^9, 3.5200160437938433`*^9}, {
   3.5200162727341638`*^9, 3.5200162782441716`*^9}, {3.520016539064537*^9, 
   3.5200165416345406`*^9}, {3.520016640554679*^9, 3.5200166644847126`*^9}, {
   3.5200167803048744`*^9, 3.5200167810648756`*^9}, {3.520016827704941*^9, 
   3.520016827924941*^9}, {3.5200168944250345`*^9, 3.520016895195035*^9}, {
   3.5200170601352663`*^9, 3.52001712010535*^9}, {3.520017245065525*^9, 
   3.5200172509055333`*^9}, 3.520017485745862*^9, {3.5200177331762085`*^9, 
   3.5200177767262697`*^9}, {3.520019280632377*^9, 3.5200192892723894`*^9}, {
   3.520019537582737*^9, 3.520019553302759*^9}, 3.520019948243312*^9, {
   3.5232198283984976`*^9, 3.5232198300285*^9}, 3.5239240548487515`*^9, {
   3.5239241358440943`*^9, 3.5239241492601175`*^9}, 3.5239242125338287`*^9, 
   3.5239247792640247`*^9, {3.5239258461342983`*^9, 3.523925877256353*^9}, 
   3.524076266651808*^9, {3.5240785663298473`*^9, 3.524078576625865*^9}, {
   3.5240794890090675`*^9, 3.5240794935330753`*^9}, {3.524153273471707*^9, 
   3.5241532822592096`*^9}, {3.524155163827611*^9, 3.524155262687749*^9}, {
   3.524159481755657*^9, 3.524159543335743*^9}, {3.524189918629079*^9, 
   3.524189923761488*^9}, {3.524190187199151*^9, 3.524190190553157*^9}, {
   3.5241907557421494`*^9, 3.524190758986955*^9}, {3.524190810264245*^9, 
   3.524190812417049*^9}, {3.5241909830033484`*^9, 3.524191054716675*^9}, {
   3.5241911690024753`*^9, 3.5241911994537287`*^9}, {3.52419128562828*^9, 
   3.5241912877186837`*^9}, {3.524191320634742*^9, 3.5241913236299467`*^9}, {
   3.5241914087592964`*^9, 3.5241914356393437`*^9}, {3.524240419664506*^9, 
   3.5242404550609684`*^9}, {3.5242405497531347`*^9, 3.524240552420739*^9}, {
   3.524240614914449*^9, 3.524240636582887*^9}, {3.52424080354998*^9, 
   3.5242408417232475`*^9}, {3.5242408792257137`*^9, 
   3.5242408903329325`*^9}, {3.52424170289156*^9, 3.524241760923662*^9}, {
   3.52424182808178*^9, 3.524241841076603*^9}, {3.5242418870342836`*^9, 
   3.52424189087189*^9}, {3.524241931759562*^9, 3.5242419417591796`*^9}, {
   3.524241992771269*^9, 3.5242420707090063`*^9}, {3.524242235336095*^9, 
   3.5242422377384996`*^9}, {3.5242483598333826`*^9, 3.524248367473393*^9}, 
   3.524256700075998*^9, 3.524259045103317*^9, 3.524948037348293*^9, {
   3.5348936061418905`*^9, 3.534893634961931*^9}, {3.5348938156221843`*^9, 
   3.534893832082207*^9}, {3.5348950110163636`*^9, 3.534895021886379*^9}, {
   3.5348950962664833`*^9, 3.5348951481365557`*^9}, {3.542249264790239*^9, 
   3.5422492707905817`*^9}, {3.542249351268185*^9, 3.5422493564864836`*^9}, {
   3.5498427773875113`*^9, 3.5498427801275153`*^9}, {3.5498429704977818`*^9, 
   3.549842982187798*^9}, {3.5597610926778793`*^9, 3.5597611198984365`*^9}, {
   3.559761766268407*^9, 3.5597617662934084`*^9}, {3.559762849935389*^9, 
   3.559762861734064*^9}, {3.559766780909228*^9, 3.559766842034724*^9}, {
   3.5597670673026085`*^9, 3.5597671044517336`*^9}, {3.559767293102524*^9, 
   3.559767294703615*^9}, {3.706141775688508*^9, 3.7061417756985083`*^9}, 
   3.715475634195309*^9, 3.715475678051818*^9, {3.7154761359260063`*^9, 
   3.7154761471136465`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
        RowBox[{
         RowBox[{"v", "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", 
       "\[IndentingNewLine]", "  ", 
       RowBox[{"b", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "n", "+", "2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", 
            RowBox[{"Simplify", "[", 
             RowBox[{"m", "+", "1"}], "]"}]}], "*", 
           RowBox[{"v", "^", "n"}]}], ",", "x"}], "]"}]}]}], " ", "/;", "\n", 
      " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"RationalQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"SumSimplerQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.4965217417978497`*^9, {
   3.496521941868931*^9, 3.496521957218952*^9}, 3.496522897045486*^9, 
   3.4965230531057043`*^9, 3.496523170075868*^9, 3.4965234419962487`*^9, 
   3.496523568406426*^9, 3.496523756546689*^9, {3.4965238353267994`*^9, 
   3.496523841336808*^9}, {3.4965238744768543`*^9, 3.496523876456857*^9}, {
   3.4965241632672586`*^9, 3.496524165447262*^9}, {3.496524224667345*^9, 
   3.4965242301673527`*^9}, {3.496524538977785*^9, 3.4965245421177893`*^9}, {
   3.496525206278719*^9, 3.4965252146987305`*^9}, {3.496525246928776*^9, 
   3.496525255068787*^9}, {3.517191220584426*^9, 3.517191223673231*^9}, 
   3.5198290200247097`*^9, {3.5198290561075735`*^9, 3.51982911128487*^9}, {
   3.519829150004138*^9, 3.519829150253739*^9}, {3.519831388060069*^9, 
   3.519831392459277*^9}, {3.5198315094594827`*^9, 3.5198315116278863`*^9}, {
   3.519831575151198*^9, 3.5198315776784024`*^9}, 3.5199707268036118`*^9, {
   3.519970770203673*^9, 3.5199707712836742`*^9}, {3.520015955183719*^9, 
   3.5200159597337255`*^9}, {3.520016023403815*^9, 3.5200160437938433`*^9}, {
   3.5200162727341638`*^9, 3.5200162782441716`*^9}, {3.520016539064537*^9, 
   3.5200165416345406`*^9}, {3.520016640554679*^9, 3.5200166644847126`*^9}, {
   3.5200167803048744`*^9, 3.5200167810648756`*^9}, {3.520016827704941*^9, 
   3.520016827924941*^9}, {3.5200168944250345`*^9, 3.520016895195035*^9}, {
   3.5200170601352663`*^9, 3.52001712010535*^9}, {3.520017245065525*^9, 
   3.5200172509055333`*^9}, 3.520017485745862*^9, {3.5200177331762085`*^9, 
   3.5200177767262697`*^9}, {3.520019280632377*^9, 3.5200192892723894`*^9}, {
   3.520019537582737*^9, 3.520019553302759*^9}, 3.520019948243312*^9, {
   3.5232198283984976`*^9, 3.5232198300285*^9}, 3.5239240548487515`*^9, {
   3.5239241358440943`*^9, 3.5239241492601175`*^9}, 3.5239242125338287`*^9, 
   3.5239247792640247`*^9, {3.5239258461342983`*^9, 3.523925877256353*^9}, 
   3.524076266651808*^9, {3.5240785663298473`*^9, 3.524078576625865*^9}, {
   3.5240794890090675`*^9, 3.5240794935330753`*^9}, {3.524153273471707*^9, 
   3.5241532822592096`*^9}, {3.524155163827611*^9, 3.524155262687749*^9}, {
   3.524159481755657*^9, 3.524159543335743*^9}, {3.524189918629079*^9, 
   3.524189923761488*^9}, {3.524190187199151*^9, 3.524190190553157*^9}, {
   3.5241907557421494`*^9, 3.524190758986955*^9}, {3.524190810264245*^9, 
   3.524190812417049*^9}, {3.5241909830033484`*^9, 3.524191054716675*^9}, {
   3.5241911690024753`*^9, 3.5241911994537287`*^9}, {3.52419128562828*^9, 
   3.5241912877186837`*^9}, {3.524191320634742*^9, 3.5241913236299467`*^9}, {
   3.5241914087592964`*^9, 3.5241914356393437`*^9}, {3.524240419664506*^9, 
   3.5242404550609684`*^9}, {3.5242405497531347`*^9, 3.524240552420739*^9}, {
   3.524240614914449*^9, 3.524240636582887*^9}, {3.52424080354998*^9, 
   3.5242408417232475`*^9}, {3.5242408792257137`*^9, 
   3.5242408903329325`*^9}, {3.52424170289156*^9, 3.524241760923662*^9}, {
   3.52424182808178*^9, 3.524241841076603*^9}, {3.5242418870342836`*^9, 
   3.52424189087189*^9}, {3.524241931759562*^9, 3.5242419417591796`*^9}, {
   3.524241992771269*^9, 3.5242420707090063`*^9}, {3.524242235336095*^9, 
   3.5242422377384996`*^9}, {3.5242483598333826`*^9, 3.524248367473393*^9}, {
   3.524256700075998*^9, 3.524256744068075*^9}, {3.5242567865313497`*^9, 
   3.5242568428786488`*^9}, {3.5242590471157203`*^9, 3.52425910954703*^9}, 
   3.524259171900339*^9, {3.5242592212120256`*^9, 3.524259243504465*^9}, {
   3.530417110849158*^9, 3.5304171208291717`*^9}, {3.531940114679228*^9, 
   3.5319401155840297`*^9}, {3.5369783665057554`*^9, 3.536978409855816*^9}, {
   3.536978464675893*^9, 3.536978471245902*^9}, {3.5369786742261863`*^9, 
   3.536978683536199*^9}, 3.5369787336262693`*^9, {3.5369787680563173`*^9, 
   3.536978770336321*^9}, {3.5371254849744663`*^9, 3.5371254974844837`*^9}, {
   3.542249273064712*^9, 3.542249278881045*^9}, {3.542249369025201*^9, 
   3.542249401651067*^9}, {3.549842425037018*^9, 3.5498424309270267`*^9}, {
   3.549996594923809*^9, 3.54999659593381*^9}, {3.5597610927038813`*^9, 
   3.5597611199224377`*^9}, {3.5597617663144093`*^9, 3.559761766338411*^9}, {
   3.5597628499513903`*^9, 3.5597628617490644`*^9}, 3.559766782936344*^9, {
   3.5597672164571395`*^9, 3.5597672643078766`*^9}, 3.706141775708508*^9, 
   3.715475636011413*^9, 3.715475678060818*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["7:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "m"], " ", 
     SuperscriptBox["v", "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
       "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"b", " ", "u"}], "-", 
         RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, 3.5384420991502237`*^9, {
   3.5384425778000717`*^9, 3.538442613570236*^9}, {3.5393936588933797`*^9, 
   3.539393659539417*^9}, {3.549660293279602*^9, 3.549660294659604*^9}, {
   3.5496603865597324`*^9, 3.549660388529735*^9}, {3.55976029893248*^9, 
   3.559760311769214*^9}, {3.559762294230604*^9, 3.559762294230604*^9}, {
   3.5597771643911343`*^9, 3.5597771712485266`*^9}, {3.559872035057954*^9, 
   3.559872037416088*^9}, {3.559872082670585*^9, 3.559872082844595*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "a"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "v"}], "\[Equal]", "b"}], " ", 
   "\[And]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"b", " ", "u"}], "-", 
     RowBox[{"a", " ", "v"}]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
   " ", 
   RowBox[{"n", "\[NotElement]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.5384424663332253`*^9, 3.538442561038113*^9}, {
   3.538442782322378*^9, 3.538442782322378*^9}, {3.549660299759611*^9, 
   3.5496603005796123`*^9}, 3.5597622943956137`*^9, {3.559777210513772*^9, 
   3.559777210513772*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], 
   SuperscriptBox["v", "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["u", "m"], " ", 
       SuperscriptBox["v", 
        RowBox[{"n", "+", "1"}]]}], 
      RowBox[{"b", " ", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox[
          RowBox[{"b", " ", "u"}], 
          RowBox[{
           RowBox[{"b", " ", "u"}], "-", 
           RowBox[{"a", " ", "v"}]}]], ")"}], "m"]}]]}]}], 
   RowBox[{"Hypergeometric2F1", "[", 
    RowBox[{
     RowBox[{"-", "m"}], ",", 
     RowBox[{"n", "+", "1"}], ",", 
     RowBox[{"n", "+", "2"}], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"a", " ", "v"}], 
       RowBox[{
        RowBox[{"b", " ", "u"}], "-", 
        RowBox[{"a", " ", "v"}]}]]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, 3.538442269464965*^9, {
   3.538442708167139*^9, 3.53844271220337*^9}, {3.5597602989484806`*^9, 
   3.5597603117952156`*^9}, {3.5597645870897484`*^9, 
   3.5597645870947485`*^9}, {3.559768067639825*^9, 3.5597680964254713`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_"}], "*", 
     RowBox[{"v_", "^", "n_"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", 
  "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"v", "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b", "*", 
             RowBox[{"u", "/", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"b", "*", "u"}], "-", 
                RowBox[{"a", "*", "v"}]}], ")"}]}]}], ")"}], "^", "m"}]}], 
         ")"}]}], "*", 
       RowBox[{"Hypergeometric2F1", "[", 
        RowBox[{
         RowBox[{"-", "m"}], ",", 
         RowBox[{"n", "+", "1"}], ",", 
         RowBox[{"n", "+", "2"}], ",", 
         RowBox[{
          RowBox[{"-", "a"}], "*", 
          RowBox[{"v", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"b", "*", "u"}], "-", 
             RowBox[{"a", "*", "v"}]}], ")"}]}]}]}], "]"}]}], " ", "/;", "\n",
       " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"b", "*", "u"}], "-", 
         RowBox[{"a", "*", "v"}]}], ",", "0"}], "]"}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "v", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "m", "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"IntegerQ", "[", "n", "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.536602612371271*^9, 3.536602634709549*^9}, 3.5384420114712086`*^9, 
   3.5384421144721003`*^9, {3.5384422948934193`*^9, 3.538442301402792*^9}, {
   3.5384424300471497`*^9, 3.538442443048894*^9}, {3.5384426348784547`*^9, 
   3.5384426371365843`*^9}, {3.5384427182777176`*^9, 
   3.5384427227439704`*^9}, {3.5496603033196163`*^9, 
   3.5496603042796173`*^9}, {3.559761092826888*^9, 3.559761120037444*^9}, {
   3.559761766465418*^9, 3.559761766487419*^9}, {3.559762850074397*^9, 
   3.559762861825069*^9}, {3.5597681044359293`*^9, 3.5597681169406443`*^9}, {
   3.5597682094819374`*^9, 3.5597682293330727`*^9}, {3.5597770759360747`*^9, 
   3.559777079232263*^9}, {3.559777178746955*^9, 3.5597771814761114`*^9}, {
   3.559777264397854*^9, 3.5597772676550407`*^9}, 3.706141775728508*^9, 
   3.7154756378025155`*^9, 3.715475678068819*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "n"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Log", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.553560225618757*^9, 3.55356022752876*^9}, {
   3.5536175751912155`*^9, 3.5536175847212286`*^9}, {3.553627430893401*^9, 
   3.5536274529734316`*^9}, {3.553628201284479*^9, 3.55362820144448*^9}, {
   3.5536305382800856`*^9, 3.553630545650096*^9}, 3.5539660262185583`*^9, {
   3.5561659379395323`*^9, 3.5561659642567787`*^9}, 3.556214420402311*^9, 
   3.5563930837698183`*^9, {3.557022510542225*^9, 3.5570225124822273`*^9}, 
   3.557026954353447*^9, {3.5570694606950235`*^9, 3.557069467612419*^9}, {
   3.5570805075066814`*^9, 3.5570805110366864`*^9}, 3.5570806581968927`*^9, {
   3.558064336842573*^9, 3.5580643370825734`*^9}, {3.5588259854091406`*^9, 
   3.558825987679144*^9}, {3.5588971288117228`*^9, 3.5588971292517233`*^9}, {
   3.558897164781773*^9, 3.5588971881718063`*^9}, {3.558897232231868*^9, 
   3.558897234571871*^9}, {3.558906812964413*^9, 3.5589068147544155`*^9}, {
   3.5590664733545876`*^9, 3.559066476499109*^9}, {3.55908515264705*^9, 
   3.559085176484413*^9}, 3.5590854605376596`*^9, {3.5590862366400504`*^9, 
   3.5590862542180557`*^9}, {3.559154785692547*^9, 3.5591548127150927`*^9}, 
   3.5591548488571596`*^9, {3.5591565760549498`*^9, 3.5591565770820084`*^9}, {
   3.5591567755693617`*^9, 3.5591567826007633`*^9}, {3.5591680377066317`*^9, 
   3.5591680382126603`*^9}, 3.559322211759966*^9, 3.5595181828231926`*^9, {
   3.559538320090478*^9, 3.5595383358353786`*^9}, 3.559583109715901*^9, {
   3.5595832187271357`*^9, 3.5595832189091463`*^9}, 3.559583265878833*^9, 
   3.5596704759929743`*^9, {3.55967051369013*^9, 3.55967051369013*^9}, 
   3.5596705979549503`*^9, {3.559679616223565*^9, 3.559679620605816*^9}, {
   3.5596825336434317`*^9, 3.5596825346864915`*^9}, 3.559682582179208*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "n"], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.55396602222933*^9, {
   3.5557245433748407`*^9, 3.5557245433748407`*^9}, {3.555724591514908*^9, 
   3.55572459285491*^9}, 3.555812607377571*^9, {3.5559627484519744`*^9, 
   3.555962760331991*^9}, {3.558897368802059*^9, 3.5588973840420804`*^9}, 
   3.558906841384453*^9, {3.5589119084815474`*^9, 3.5589119574616156`*^9}, {
   3.558912370822194*^9, 3.5589123709621944`*^9}, 3.5590664840800095`*^9, {
   3.5590665890008783`*^9, 3.5590666073072014`*^9}, {3.5590852197498875`*^9, 
   3.559085264328438*^9}, 3.5590854642548723`*^9, {3.559085723861721*^9, 
   3.559085723861721*^9}, {3.5590862853648376`*^9, 3.559086310641283*^9}, 
   3.5591548156862626`*^9, {3.5591548699553666`*^9, 3.559154870589403*^9}, {
   3.5591566321181564`*^9, 3.5591566335682397`*^9}, {3.5591568256782274`*^9, 
   3.559156826611281*^9}, {3.5591569836132607`*^9, 3.559156984842331*^9}, {
   3.559157034073147*^9, 3.5591570396804676`*^9}, 3.5591591039905396`*^9, 
   3.559169939922432*^9, 3.559273371173399*^9, {3.559321838241602*^9, 
   3.5593218502402887`*^9}, 3.5593222264288054`*^9, {3.559521542895378*^9, 
   3.559521545760542*^9}, {3.559538322090592*^9, 3.559538338368523*^9}, 
   3.5595831109199696`*^9, 3.5596704808012495`*^9, 3.5596705985099816`*^9, {
   3.5596816018721375`*^9, 3.5596816281496406`*^9}, {3.5596825040487394`*^9, 
   3.559682513053254*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection"],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["u", "n"], 
      RowBox[{"Log", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"b", " ", 
      SuperscriptBox["u", "n"]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]], "+", 
    RowBox[{"c", " ", "n", " ", 
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.5591700358999214`*^9, 3.559170059932296*^9}, {3.559170125823065*^9, 
   3.559170125823065*^9}, {3.559170229867016*^9, 3.559170232009138*^9}, {
   3.55952156304053*^9, 3.5595215640605884`*^9}, {3.559521755545541*^9, 
   3.5595217573016415`*^9}, {3.5595217906135464`*^9, 
   3.5595217906135464`*^9}, {3.5595383220985928`*^9, 3.559538338381524*^9}, {
   3.5595831109369707`*^9, 3.559583110943971*^9}, {3.5596704808172503`*^9, 
   3.5596704808252506`*^9}, {3.559670598516982*^9, 3.5596705985229826`*^9}, {
   3.559681647090724*^9, 3.5596816657317905`*^9}, {3.5596817243051405`*^9, 
   3.5596817433442297`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
   "\[And]", " ", 
   RowBox[{"n", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.559156639765594*^9, 
   3.559156639765594*^9}, {3.559157061991744*^9, 3.559157061991744*^9}, {
   3.5593218704534445`*^9, 3.559321871646513*^9}, {3.5596816352750483`*^9, 
   3.5596816352750483`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "n"], 
    RowBox[{"Log", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "n"], 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], 
        RowBox[{"Log", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], "b"]}]}]}]}], "-", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"c", " ", "n"}], "b"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], ")"}], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.5591566419517193`*^9, 
   3.5591566428227687`*^9}, 3.5591568509826746`*^9, {3.5591570981548123`*^9, 
   3.559157119690044*^9}, {3.5591700031270475`*^9, 3.559170011323516*^9}, 
   3.5591700447154255`*^9, {3.5591701888846717`*^9, 3.559170217234293*^9}, 
   3.559170375261332*^9, {3.5593218766147966`*^9, 3.559321908239606*^9}, {
   3.559321968268039*^9, 3.5593219778025846`*^9}, {3.559521817557088*^9, 
   3.559521828399708*^9}, {3.5595222066873446`*^9, 3.559522280003538*^9}, {
   3.5595383221195936`*^9, 3.5595383384115257`*^9}, {3.559583110960972*^9, 
   3.5595831109699726`*^9}, {3.5596704808422513`*^9, 
   3.5596704810142612`*^9}, {3.5596705985279827`*^9, 3.559670598537983*^9}, {
   3.559681785548643*^9, 3.5596817981583643`*^9}, {3.559682273516554*^9, 
   3.5596823048273444`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "n_."}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{"D", "[", 
         RowBox[{"u", ",", "x"}], "]"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "^", "n"}], "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", "x"}]}], ")"}], "*", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "/", "b"}]}], " ", "-", " ", "\n",
       "  ", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"u", "^", "n"}], ",", "x"}], "]"}], " ", "-", " ", "\n", "  ", 
      RowBox[{"c", "*", 
       RowBox[{"n", "/", "b"}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "^", 
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}]}], "*", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "*", 
          RowBox[{"Log", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}]}], 
    "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.5539664778523903`*^9, 3.5539664830786886`*^9}, 3.5557242440544214`*^9, 
   3.5557245691448765`*^9, {3.5588975344522905`*^9, 3.5588975719523435`*^9}, 
   3.558897610022397*^9, {3.5589068446644573`*^9, 3.5589068470444613`*^9}, {
   3.5589070612347608`*^9, 3.5589070759847813`*^9}, {3.5589120572417555`*^9, 
   3.5589120606317596`*^9}, {3.5589121924819446`*^9, 3.558912222691987*^9}, {
   3.559065229165531*^9, 3.5590652495748787`*^9}, {3.5590652998171234`*^9, 
   3.5590653428089423`*^9}, {3.5590859371329193`*^9, 
   3.5590860358745675`*^9}, {3.5590861224855213`*^9, 3.559086151274168*^9}, {
   3.559086192678536*^9, 3.559086194543643*^9}, {3.559156655355486*^9, 
   3.5591566612488227`*^9}, {3.559157156005121*^9, 3.5591571633155394`*^9}, {
   3.5591572068270283`*^9, 3.5591572537437115`*^9}, {3.559157288526701*^9, 
   3.5591573001663666`*^9}, {3.5591573514372993`*^9, 
   3.5591573555065317`*^9}, {3.559157511374447*^9, 3.5591575156476917`*^9}, {
   3.5591703207242126`*^9, 3.5591703516729827`*^9}, {3.559170416921715*^9, 
   3.5591704487605357`*^9}, {3.55917166953036*^9, 3.559171708629596*^9}, {
   3.559522306549056*^9, 3.559522360440139*^9}, 3.5595224201545544`*^9, {
   3.559538322159596*^9, 3.5595383615658503`*^9}, 3.559583395236232*^9, {
   3.559670920023371*^9, 3.5596709500490885`*^9}, 3.5596709802388153`*^9, 
   3.5596710207781343`*^9, {3.559671243868894*^9, 3.559671243887895*^9}, 
   3.5596821800962105`*^9, {3.559682262986951*^9, 3.559682267607216*^9}, {
   3.5596823953705235`*^9, 3.5596824519897614`*^9}, 3.559687611914892*^9, {
   3.559862467537032*^9, 3.559862471746273*^9}, {3.559862627598143*^9, 
   3.5598626315343685`*^9}, {3.559864021839325*^9, 3.5598640322969227`*^9}, 
   3.7154756427627993`*^9, {3.7154761645616446`*^9, 3.7154761663467464`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.553560225618757*^9, 3.55356022752876*^9}, {
   3.5536175751912155`*^9, 3.5536175847212286`*^9}, {3.553627430893401*^9, 
   3.5536274529734316`*^9}, {3.553628201284479*^9, 3.55362820144448*^9}, {
   3.5536305382800856`*^9, 3.553630545650096*^9}, 3.5539660262185583`*^9, {
   3.5561659379395323`*^9, 3.5561659642567787`*^9}, 3.556214420402311*^9, 
   3.5563930837698183`*^9, {3.557022510542225*^9, 3.5570225124822273`*^9}, 
   3.557026954353447*^9, {3.5570694606950235`*^9, 3.557069467612419*^9}, {
   3.5570805075066814`*^9, 3.5570805110366864`*^9}, 3.5570806581968927`*^9, {
   3.558064336842573*^9, 3.5580643370825734`*^9}, {3.5588259854091406`*^9, 
   3.558825987679144*^9}, {3.5588971288117228`*^9, 3.5588971292517233`*^9}, {
   3.558897164781773*^9, 3.5588971881718063`*^9}, {3.558897232231868*^9, 
   3.558897234571871*^9}, {3.558906812964413*^9, 3.5589068147544155`*^9}, {
   3.5590664733545876`*^9, 3.559066476499109*^9}, {3.55908515264705*^9, 
   3.559085176484413*^9}, 3.5590854605376596`*^9, {3.5590862366400504`*^9, 
   3.5590862542180557`*^9}, {3.559154785692547*^9, 3.5591548127150927`*^9}, 
   3.5591548488571596`*^9, {3.5591565760549498`*^9, 3.5591565770820084`*^9}, {
   3.5591567755693617`*^9, 3.5591567826007633`*^9}, {3.5591680377066317`*^9, 
   3.5591680382126603`*^9}, 3.559322211759966*^9, 3.5595181828231926`*^9, {
   3.559538320090478*^9, 3.5595383358353786`*^9}, 3.559583109715901*^9, {
   3.5595832187271357`*^9, 3.5595832189091463`*^9}, 3.559583265878833*^9, 
   3.5596704759929743`*^9, {3.55967051369013*^9, 3.55967051369013*^9}, 
   3.5596705979549503`*^9, {3.559679616223565*^9, 3.559679620605816*^9}, {
   3.5596825336434317`*^9, 3.5596825346864915`*^9}, 3.559682582179208*^9, {
   3.5596826727563887`*^9, 3.559682674390482*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["u", "n"], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.55396602222933*^9, {
   3.5557245433748407`*^9, 3.5557245433748407`*^9}, {3.555724591514908*^9, 
   3.55572459285491*^9}, 3.555812607377571*^9, {3.5559627484519744`*^9, 
   3.555962760331991*^9}, {3.558897368802059*^9, 3.5588973840420804`*^9}, 
   3.558906841384453*^9, {3.5589119084815474`*^9, 3.5589119574616156`*^9}, {
   3.558912370822194*^9, 3.5589123709621944`*^9}, 3.5590664840800095`*^9, {
   3.5590665890008783`*^9, 3.5590666073072014`*^9}, {3.5590852197498875`*^9, 
   3.559085264328438*^9}, 3.5590854642548723`*^9, {3.559085723861721*^9, 
   3.559085723861721*^9}, {3.5590862853648376`*^9, 3.559086310641283*^9}, 
   3.5591548156862626`*^9, {3.5591548699553666`*^9, 3.559154870589403*^9}, {
   3.5591566321181564`*^9, 3.5591566335682397`*^9}, {3.5591568256782274`*^9, 
   3.559156826611281*^9}, {3.5591569836132607`*^9, 3.559156984842331*^9}, {
   3.559157034073147*^9, 3.5591570396804676`*^9}, 3.5591591039905396`*^9, 
   3.559169939922432*^9, 3.559273371173399*^9, {3.559322027321417*^9, 
   3.5593220293025303`*^9}, 3.5593222278318853`*^9, {3.559522484978262*^9, 
   3.559522489446518*^9}, {3.559522816877246*^9, 3.5595228185423408`*^9}, {
   3.559536751557763*^9, 3.5595367537268867`*^9}, {3.559538322209599*^9, 
   3.5595383385435333`*^9}, 3.5595831111579833`*^9, 3.559670481037263*^9, {
   3.5596705985429835`*^9, 3.5596705985469837`*^9}, {3.5596819038814116`*^9, 
   3.5596819038814116`*^9}, {3.559682195957117*^9, 3.5596822001413565`*^9}, {
   3.559682508166975*^9, 3.5596825099350758`*^9}, 3.559682676209586*^9, {
   3.559682754462062*^9, 3.5596827768853445`*^9}, {3.6230818926000643`*^9, 
   3.6230818927700644`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by parts with a double-back flip\
\>", "Subsubsection",
 CellChangeTimes->{{3.5596832375346923`*^9, 3.559683242546979*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["u", "n"], 
      RowBox[{"Log", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"b", " ", 
      SuperscriptBox["u", "n"]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]], "+", 
    RowBox[{"c", " ", "n", " ", 
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.5591700358999214`*^9, 3.559170059932296*^9}, {3.559170125823065*^9, 
   3.559170125823065*^9}, {3.559170229867016*^9, 3.559170232009138*^9}, {
   3.55952156304053*^9, 3.5595215640605884`*^9}, {3.559521755545541*^9, 
   3.5595217573016415`*^9}, {3.5595217906135464`*^9, 
   3.5595217906135464`*^9}, {3.5595383220985928`*^9, 3.559538338381524*^9}, {
   3.5595831109369707`*^9, 3.559583110943971*^9}, {3.5596704808172503`*^9, 
   3.5596704808252506`*^9}, {3.559670598516982*^9, 3.5596705985229826`*^9}, {
   3.559681647090724*^9, 3.5596816657317905`*^9}, {3.5596817243051405`*^9, 
   3.5596817433442297`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
   "\[And]", " ", 
   RowBox[{"n", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.559156639765594*^9, 
   3.559156639765594*^9}, {3.559157061991744*^9, 3.559157061991744*^9}, {
   3.559681906314551*^9, 3.559681906314551*^9}, {3.5596828187207375`*^9, 
   3.5596828187207375`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["u", "n"], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "n"], 
        SuperscriptBox[
         RowBox[{"Log", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], "]"}], "2"]}], 
       RowBox[{"2", "b"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"c", " ", "n"}], 
    RowBox[{"2", "b"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     SuperscriptBox[
      RowBox[{"Log", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.5591566419517193`*^9, 
   3.5591566428227687`*^9}, 3.5591568509826746`*^9, {3.5591570981548123`*^9, 
   3.559157119690044*^9}, {3.5591700031270475`*^9, 3.559170011323516*^9}, 
   3.5591700447154255`*^9, {3.5591701888846717`*^9, 3.559170217234293*^9}, 
   3.559170375261332*^9, 3.5595225100096936`*^9, {3.5595225600985584`*^9, 
   3.5595226370719614`*^9}, {3.5595383222386007`*^9, 3.559538338587536*^9}, {
   3.5595831111989856`*^9, 3.559583111205986*^9}, {3.5596704810782647`*^9, 
   3.5596704810902653`*^9}, {3.559670598564985*^9, 3.5596705985799856`*^9}, {
   3.5596819214844184`*^9, 3.5596819405085063`*^9}, {3.559681991027396*^9, 
   3.5596819953466434`*^9}, {3.559682029229581*^9, 3.559682061974454*^9}, {
   3.5596821892457333`*^9, 3.5596821933779697`*^9}, 3.5596828142364807`*^9, {
   3.5596828591500497`*^9, 3.5596828685095854`*^9}, {3.5596829697753773`*^9, 
   3.5596830013211813`*^9}, {3.5596831003858476`*^9, 3.559683141795216*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"u_", "^", "n_."}], "*", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", "x_"}]}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], ",", "x_Symbol"}], "]"}], 
   " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", "=", 
        RowBox[{"Simplify", "[", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "x"}], "]"}], "]"}]}], "}"}], ",", "\n", "  ", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "^", "n"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", "*", "b"}], ")"}]}]}], " ", "-", " ", "\n", "  ", 
       RowBox[{"c", "*", 
        RowBox[{"n", "/", 
         RowBox[{"(", 
          RowBox[{"2", "*", "b"}], ")"}]}], "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "^", 
            RowBox[{"(", 
             RowBox[{"n", "-", "1"}], ")"}]}], "*", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{"a", "+", 
              RowBox[{"b", "*", "x"}]}], "]"}], "^", "2"}]}], ",", "x"}], 
         "]"}]}]}]}], "]"}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"PiecewiseLinearQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"n", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.5539664778523903`*^9, 3.5539664830786886`*^9}, 3.5557242440544214`*^9, 
   3.5557245691448765`*^9, {3.5588975344522905`*^9, 3.5588975719523435`*^9}, 
   3.558897610022397*^9, {3.5589068446644573`*^9, 3.5589068470444613`*^9}, {
   3.5589070612347608`*^9, 3.5589070759847813`*^9}, {3.5589120572417555`*^9, 
   3.5589120606317596`*^9}, {3.5589121924819446`*^9, 3.558912222691987*^9}, {
   3.559065229165531*^9, 3.5590652495748787`*^9}, {3.5590652998171234`*^9, 
   3.5590653428089423`*^9}, {3.5590859371329193`*^9, 
   3.5590860358745675`*^9}, {3.5590861224855213`*^9, 3.559086151274168*^9}, {
   3.559086192678536*^9, 3.559086194543643*^9}, {3.559156655355486*^9, 
   3.5591566612488227`*^9}, {3.559157156005121*^9, 3.5591571633155394`*^9}, {
   3.5591572068270283`*^9, 3.5591572537437115`*^9}, {3.559157288526701*^9, 
   3.5591573001663666`*^9}, {3.5591573514372993`*^9, 
   3.5591573555065317`*^9}, {3.559157511374447*^9, 3.5591575156476917`*^9}, {
   3.5591703207242126`*^9, 3.5591703516729827`*^9}, {3.559170416921715*^9, 
   3.5591704487605357`*^9}, 3.559171662243943*^9, {3.559522746257206*^9, 
   3.5595228003643007`*^9}, {3.5595369773036747`*^9, 
   3.5595370345399485`*^9}, {3.5595383222826033`*^9, 3.5595383615918517`*^9}, 
   3.559583395244232*^9, {3.5596709200823746`*^9, 3.5596709500810905`*^9}, 
   3.559671020796135*^9, {3.559671243902896*^9, 3.5596712439278975`*^9}, 
   3.5596733682674026`*^9, {3.5596820905630894`*^9, 3.5596821334225407`*^9}, 
   3.5596821855285206`*^9, {3.559682220081497*^9, 3.559682224967777*^9}, {
   3.559682401115852*^9, 3.5596824048350644`*^9}, {3.559682824571072*^9, 
   3.5596828383248587`*^9}, {3.55968328627748*^9, 3.5596833439617796`*^9}, 
   3.5596876119588947`*^9, {3.5598624833849297`*^9, 3.5598624871521454`*^9}, {
   3.55986264384207*^9, 3.5598626469422474`*^9}, {3.6230818850700536`*^9, 
   3.623081889040059*^9}, 3.715475645151936*^9, {3.7154761770633593`*^9, 
   3.7154761814376097`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
       "\[And]", " ", 
       RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535597570381007`*^9, 3.553559765608113*^9}, {3.553559900728302*^9, 
   3.55355990606831*^9}, 3.553560247968788*^9, {3.553560284118839*^9, 
   3.553560284268839*^9}, 3.553617750921461*^9, {3.5536177847415085`*^9, 
   3.553617790541517*^9}, 3.553618024341844*^9, 3.55396602222933*^9, {
   3.5557245433748407`*^9, 3.5557245433748407`*^9}, {3.555724591514908*^9, 
   3.55572459285491*^9}, 3.555812607377571*^9, {3.5559627484519744`*^9, 
   3.555962760331991*^9}, {3.558897368802059*^9, 3.5588973840420804`*^9}, 
   3.558906841384453*^9, {3.5589119084815474`*^9, 3.5589119574616156`*^9}, {
   3.558912370822194*^9, 3.5589123709621944`*^9}, 3.5590664840800095`*^9, {
   3.5590665890008783`*^9, 3.5590666073072014`*^9}, {3.5590852197498875`*^9, 
   3.559085264328438*^9}, 3.5590854642548723`*^9, {3.559085723861721*^9, 
   3.559085723861721*^9}, {3.5590862853648376`*^9, 3.559086310641283*^9}, 
   3.5591548156862626`*^9, {3.5591548699553666`*^9, 3.559154870589403*^9}, {
   3.5591566321181564`*^9, 3.5591566335682397`*^9}, {3.5591568256782274`*^9, 
   3.559156826611281*^9}, {3.5591569836132607`*^9, 3.559156984842331*^9}, {
   3.559157034073147*^9, 3.5591570396804676`*^9}, 3.5591591039905396`*^9, 
   3.559169939922432*^9, 3.559273371173399*^9, {3.559322027321417*^9, 
   3.5593220293025303`*^9}, 3.5593222278318853`*^9, {3.559522484978262*^9, 
   3.559522489446518*^9}, {3.559522816877246*^9, 3.5595228185423408`*^9}, {
   3.559536751557763*^9, 3.5595367537268867`*^9}, {3.559538322209599*^9, 
   3.5595383385435333`*^9}, 3.5595831111579833`*^9, 3.559670481037263*^9, {
   3.5596705985429835`*^9, 3.5596705985469837`*^9}, {3.5596819038814116`*^9, 
   3.5596819038814116`*^9}, {3.559682195957117*^9, 3.5596822001413565`*^9}, {
   3.559682508166975*^9, 3.5596825099350758`*^9}, 3.559682676209586*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection"],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["u", "n"], 
      RowBox[{"Log", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], "]"}]}], ")"}]}], "\[Equal]", 
   RowBox[{
    FractionBox[
     RowBox[{"b", " ", 
      SuperscriptBox["u", "n"]}], 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}]], "+", 
    RowBox[{"c", " ", "n", " ", 
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.5589077117756715`*^9, 3.558907715995678*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.5589076316855593`*^9, 3.5589076347755637`*^9}, {3.558907724145689*^9, 
   3.5589077251656904`*^9}, 3.5589120967818108`*^9, {3.5589121268118525`*^9, 
   3.5589121268118525`*^9}, {3.558913202213358*^9, 3.558913202213358*^9}, {
   3.5590855171899004`*^9, 3.559085522203187*^9}, {3.559085567209761*^9, 
   3.5590855746791887`*^9}, {3.5590863423610973`*^9, 3.559086347529393*^9}, {
   3.5591535854688983`*^9, 3.5591535888020887`*^9}, {3.55915690492176*^9, 
   3.55915690492176*^9}, {3.559156959572886*^9, 3.559156959572886*^9}, {
   3.5591700358999214`*^9, 3.559170059932296*^9}, {3.559170125823065*^9, 
   3.559170125823065*^9}, {3.559170229867016*^9, 3.559170232009138*^9}, {
   3.55952156304053*^9, 3.5595215640605884`*^9}, {3.559521755545541*^9, 
   3.5595217573016415`*^9}, {3.5595217906135464`*^9, 
   3.5595217906135464`*^9}, {3.5595383220985928`*^9, 3.559538338381524*^9}, {
   3.5595831109369707`*^9, 3.559583110943971*^9}, {3.5596704808172503`*^9, 
   3.5596704808252506`*^9}, {3.559670598516982*^9, 3.5596705985229826`*^9}, {
   3.559681647090724*^9, 3.5596816657317905`*^9}, {3.5596817243051405`*^9, 
   3.5596817433442297`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], "u"}], "\[Equal]", "c"}], " ", 
   "\[And]", " ", 
   RowBox[{"n", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.5557245453948436`*^9, 3.5557245453948436`*^9}, 3.5588982369432745`*^9, {
   3.558911977821644*^9, 3.558911995561669*^9}, {3.559066802798304*^9, 
   3.559066802798304*^9}, {3.5590855981475306`*^9, 3.559085605814969*^9}, {
   3.559086374093912*^9, 3.559086374093912*^9}, {3.559156639765594*^9, 
   3.559156639765594*^9}, {3.559157061991744*^9, 3.559157061991744*^9}, {
   3.559681906314551*^9, 3.559681906314551*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "n"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Log", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox["u", "n"], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"Log", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], "]"}]}], 
       RowBox[{"b", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", "n"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"c", " ", "n"}], 
    RowBox[{"b", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["u", 
      RowBox[{"n", "-", "1"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"Log", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, {
   3.5539660222373304`*^9, 3.5539660222523313`*^9}, 3.5539664390341697`*^9, {
   3.5588973945920954`*^9, 3.5588974214321327`*^9}, {3.558906842404454*^9, 
   3.5589068433344555`*^9}, {3.5589069956746693`*^9, 
   3.5589070003646755`*^9}, {3.5589121511618867`*^9, 3.558912179861927*^9}, {
   3.5590666950033026`*^9, 3.559066753908003*^9}, {3.5590852550559072`*^9, 
   3.5590853055297937`*^9}, {3.5590854073206162`*^9, 3.5590854254546537`*^9}, 
   3.559085481331849*^9, 3.5590861444137754`*^9, {3.5591566419517193`*^9, 
   3.5591566428227687`*^9}, 3.5591568509826746`*^9, {3.5591570981548123`*^9, 
   3.559157119690044*^9}, {3.5591700031270475`*^9, 3.559170011323516*^9}, 
   3.5591700447154255`*^9, {3.5591701888846717`*^9, 3.559170217234293*^9}, 
   3.559170375261332*^9, 3.5595225100096936`*^9, {3.5595225600985584`*^9, 
   3.5595226370719614`*^9}, {3.5595383222386007`*^9, 3.559538338587536*^9}, {
   3.5595831111989856`*^9, 3.559583111205986*^9}, {3.5596704810782647`*^9, 
   3.5596704810902653`*^9}, {3.559670598564985*^9, 3.5596705985799856`*^9}, {
   3.5596819214844184`*^9, 3.5596819405085063`*^9}, {3.559681991027396*^9, 
   3.5596819953466434`*^9}, {3.559682029229581*^9, 3.559682061974454*^9}, {
   3.5596821892457333`*^9, 3.5596821933779697`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "n_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"Log", "[", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", "=", 
       RowBox[{"Simplify", "[", 
        RowBox[{"D", "[", 
         RowBox[{"u", ",", "x"}], "]"}], "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "^", "n"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
      "  ", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "^", "n"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", "m"}]}], ",", "x"}], 
        "]"}]}], " ", "-", " ", "\n", "  ", 
      RowBox[{"c", "*", 
       RowBox[{"n", "/", 
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "^", 
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", "x"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"m", "+", "1"}], ")"}]}], "*", 
          RowBox[{"Log", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}]}], 
    "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"PiecewiseLinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.5539664778523903`*^9, 3.5539664830786886`*^9}, 3.5557242440544214`*^9, 
   3.5557245691448765`*^9, {3.5588975344522905`*^9, 3.5588975719523435`*^9}, 
   3.558897610022397*^9, {3.5589068446644573`*^9, 3.5589068470444613`*^9}, {
   3.5589070612347608`*^9, 3.5589070759847813`*^9}, {3.5589120572417555`*^9, 
   3.5589120606317596`*^9}, {3.5589121924819446`*^9, 3.558912222691987*^9}, {
   3.559065229165531*^9, 3.5590652495748787`*^9}, {3.5590652998171234`*^9, 
   3.5590653428089423`*^9}, {3.5590859371329193`*^9, 
   3.5590860358745675`*^9}, {3.5590861224855213`*^9, 3.559086151274168*^9}, {
   3.559086192678536*^9, 3.559086194543643*^9}, {3.559156655355486*^9, 
   3.5591566612488227`*^9}, {3.559157156005121*^9, 3.5591571633155394`*^9}, {
   3.5591572068270283`*^9, 3.5591572537437115`*^9}, {3.559157288526701*^9, 
   3.5591573001663666`*^9}, {3.5591573514372993`*^9, 
   3.5591573555065317`*^9}, {3.559157511374447*^9, 3.5591575156476917`*^9}, {
   3.5591703207242126`*^9, 3.5591703516729827`*^9}, {3.559170416921715*^9, 
   3.5591704487605357`*^9}, 3.559171662243943*^9, {3.559522746257206*^9, 
   3.5595228003643007`*^9}, {3.5595369773036747`*^9, 
   3.5595370345399485`*^9}, {3.5595383222826033`*^9, 3.5595383615918517`*^9}, 
   3.559583395244232*^9, {3.5596709200823746`*^9, 3.5596709500810905`*^9}, 
   3.559671020796135*^9, {3.559671243902896*^9, 3.5596712439278975`*^9}, 
   3.5596733682674026`*^9, {3.5596820905630894`*^9, 3.5596821334225407`*^9}, 
   3.5596821855285206`*^9, {3.559682220081497*^9, 3.559682224967777*^9}, {
   3.559682401115852*^9, 3.5596824048350644`*^9}, 3.5596876120078974`*^9, {
   3.5598624941535397`*^9, 3.559862497989751*^9}, {3.5598626538176403`*^9, 
   3.5598626578538713`*^9}, 3.5598640570303307`*^9, 3.706141775768508*^9, 
   3.715475647532072*^9, {3.715476190162109*^9, 3.7154761996976542`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "involving", " ", 
      "piecewise", " ", "linear", " ", "functions"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{792, 612},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2613, 40, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[3183, 64, 6712, 102, 53, "Subsubtitle"],
Cell[9898, 168, 132, 1, 48, "Subsubsection"],
Cell[10033, 171, 2187, 42, 51, "Subsubsection"],
Cell[12223, 215, 1472, 25, 36, "Subsubsection"],
Cell[13698, 242, 2314, 42, 82, "Subsubtitle"],
Cell[16015, 286, 771, 11, 48, "Subsubsection"],
Cell[16789, 299, 2360, 48, 180, "Code"],
Cell[19152, 349, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[19302, 356, 2429, 53, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[21756, 413, 2895, 60, 61, "Subsubtitle"],
Cell[CellGroupData[{
Cell[24676, 477, 3091, 62, 85, "Subsubtitle"],
Cell[CellGroupData[{
Cell[27792, 543, 4103, 76, 78, "Subsubtitle"],
Cell[31898, 621, 748, 16, 50, "Subsubsection"],
Cell[32649, 639, 235, 3, 34, "Subsubsection"],
Cell[32887, 644, 2310, 43, 36, "Subsubsection"],
Cell[35200, 689, 1954, 40, 82, "Subsubtitle"],
Cell[37157, 731, 771, 11, 48, "Subsubsection"],
Cell[37931, 744, 6592, 113, 215, "Code"],
Cell[44526, 859, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[44652, 866, 4242, 78, 85, "Subsubtitle"],
Cell[48897, 946, 644, 13, 50, "Subsubsection"],
Cell[49544, 961, 235, 3, 34, "Subsubsection"],
Cell[49782, 966, 2418, 45, 36, "Subsubsection"],
Cell[52203, 1013, 2014, 43, 89, "Subsubtitle"],
Cell[54220, 1058, 771, 11, 48, "Subsubsection"],
Cell[54994, 1071, 6982, 124, 215, "Code"],
Cell[61979, 1197, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[62117, 1205, 2991, 60, 85, "Subsubtitle"],
Cell[CellGroupData[{
Cell[65133, 1269, 2981, 61, 83, "Subsubtitle"],
Cell[68117, 1332, 320, 5, 48, "Subsubsection"],
Cell[68440, 1339, 2760, 51, 53, "Subsubsection"],
Cell[71203, 1392, 2743, 56, 53, "Subsubsection"],
Cell[73949, 1450, 1962, 39, 36, "Subsubsection"],
Cell[75914, 1491, 3199, 61, 83, "Subsubtitle"],
Cell[79116, 1554, 771, 11, 48, "Subsubsection"],
Cell[79890, 1567, 2241, 60, 215, "Code"],
Cell[82134, 1629, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[82260, 1636, 2854, 60, 92, "Subsubtitle"],
Cell[CellGroupData[{
Cell[85139, 1700, 2992, 65, 92, "Subsubtitle"],
Cell[88134, 1767, 1490, 35, 68, "Subsubsection"],
Cell[89627, 1804, 1334, 35, 145, "Subsubtitle"],
Cell[90964, 1841, 771, 11, 48, "Subsubsection"],
Cell[91738, 1854, 2437, 68, 215, "Code"],
Cell[94178, 1924, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[94304, 1931, 3108, 68, 92, "Subsubtitle"],
Cell[97415, 2001, 1557, 37, 68, "Subsubsection"],
Cell[98975, 2040, 1825, 43, 145, "Subsubtitle"],
Cell[100803, 2085, 771, 11, 48, "Subsubsection"],
Cell[101577, 2098, 2475, 70, 215, "Code"],
Cell[104055, 2170, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[104193, 2178, 4202, 77, 85, "Subsubtitle"],
Cell[108398, 2257, 644, 13, 50, "Subsubsection"],
Cell[109045, 2272, 202, 3, 34, "Subsubsection"],
Cell[109250, 2277, 2039, 40, 36, "Subsubsection"],
Cell[111292, 2319, 2547, 59, 92, "Subsubtitle"],
Cell[113842, 2380, 819, 11, 48, "Subsubsection"],
Cell[114664, 2393, 6532, 126, 250, "Code"],
Cell[121199, 2521, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[121337, 2529, 7785, 124, 85, "Subsubtitle"],
Cell[129125, 2655, 2067, 40, 50, "Subsubsection"],
Cell[131195, 2697, 3049, 59, 92, "Subsubtitle"],
Cell[134247, 2758, 865, 12, 48, "Subsubsection"],
Cell[135115, 2772, 5012, 101, 215, "Code"],
Cell[140130, 2875, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[140292, 2883, 2758, 59, 66, "Subsubtitle"],
Cell[CellGroupData[{
Cell[143075, 2946, 2857, 62, 92, "Subsubtitle"],
Cell[145935, 3010, 1653, 35, 50, "Subsubsection"],
Cell[147591, 3047, 1690, 38, 103, "Subsubtitle"],
Cell[149284, 3087, 771, 11, 48, "Subsubsection"],
Cell[150058, 3100, 2281, 59, 215, "Code"],
Cell[152342, 3161, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[152468, 3168, 2970, 65, 92, "Subsubtitle"],
Cell[155441, 3235, 1760, 38, 50, "Subsubsection"],
Cell[157204, 3275, 1787, 41, 103, "Subsubtitle"],
Cell[158994, 3318, 771, 11, 48, "Subsubsection"],
Cell[159768, 3331, 2445, 63, 215, "Code"],
Cell[162216, 3396, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[162354, 3404, 3899, 74, 53, "Subsubtitle"],
Cell[166256, 3480, 705, 15, 50, "Subsubsection"],
Cell[166964, 3497, 2051, 42, 36, "Subsubsection"],
Cell[169018, 3541, 1474, 35, 92, "Subsubtitle"],
Cell[170495, 3578, 771, 11, 48, "Subsubsection"],
Cell[171269, 3591, 3238, 78, 215, "Code"],
Cell[174510, 3671, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[174636, 3678, 4218, 77, 53, "Subsubtitle"],
Cell[178857, 3757, 494, 9, 48, "Subsubsection"],
Cell[179354, 3768, 533, 9, 34, "Subsubsection"],
Cell[179890, 3779, 2128, 45, 36, "Subsubsection"],
Cell[182021, 3826, 1922, 46, 92, "Subsubtitle"],
Cell[183946, 3874, 771, 11, 48, "Subsubsection"],
Cell[184720, 3887, 5503, 140, 425, "Code"],
Cell[190226, 4029, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[190352, 4036, 4305, 81, 53, "Subsubtitle"],
Cell[194660, 4119, 516, 9, 35, "Subsubsection"],
Cell[195179, 4130, 235, 3, 25, "Subsubsection"],
Cell[195417, 4135, 2447, 48, 26, "Subsubsection"],
Cell[197867, 4185, 2164, 51, 66, "Subsubtitle"],
Cell[200034, 4238, 771, 11, 35, "Subsubsection"],
Cell[200808, 4251, 8086, 157, 229, "Code"],
Cell[208897, 4410, 7825, 145, 189, "Code"],
Cell[216725, 4557, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[216851, 4564, 4162, 78, 53, "Subsubtitle"],
Cell[221016, 4644, 517, 9, 48, "Subsubsection"],
Cell[221536, 4655, 202, 3, 34, "Subsubsection"],
Cell[221741, 4660, 706, 19, 57, "Subsubsection"],
Cell[222450, 4681, 2091, 43, 36, "Subsubsection"],
Cell[224544, 4726, 2468, 60, 92, "Subsubtitle"],
Cell[227015, 4788, 819, 11, 48, "Subsubsection"],
Cell[227837, 4801, 6691, 134, 250, "Code"],
Cell[234531, 4937, 6835, 134, 264, "Code"],
Cell[241369, 5073, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[241495, 5080, 4600, 83, 53, "Subsubtitle"],
Cell[246098, 5165, 2993, 53, 50, "Subsubsection"],
Cell[249094, 5220, 2987, 62, 114, "Subsubtitle"],
Cell[252084, 5284, 771, 11, 48, "Subsubsection"],
Cell[252858, 5297, 5155, 108, 215, "Code"],
Cell[258016, 5407, 190, 4, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[258255, 5417, 5055, 84, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[263335, 5505, 6941, 109, 74, "Subsubtitle"],
Cell[270279, 5616, 57, 0, 48, "Subsubsection"],
Cell[270339, 5618, 2709, 58, 57, "Subsubsection"],
Cell[273051, 5678, 1340, 26, 36, "Subsubsection"],
Cell[274394, 5706, 3267, 69, 85, "Subsubtitle"],
Cell[277664, 5777, 771, 11, 48, "Subsubsection"],
Cell[278438, 5790, 3756, 84, 250, "Code"],
Cell[282197, 5876, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[282347, 5883, 5148, 86, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[287520, 5973, 7358, 117, 86, "Subsubtitle"],
Cell[294881, 6092, 157, 3, 48, "Subsubsection"],
Cell[295041, 6097, 2709, 58, 57, "Subsubsection"],
Cell[297753, 6157, 1338, 26, 36, "Subsubsection"],
Cell[299094, 6185, 3330, 68, 89, "Subsubtitle"],
Cell[302427, 6255, 771, 11, 48, "Subsubsection"],
Cell[303201, 6268, 3868, 85, 215, "Code"],
Cell[307072, 6355, 113, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[307222, 6362, 7346, 117, 74, "Subsubtitle"],
Cell[314571, 6481, 57, 0, 48, "Subsubsection"],
Cell[314631, 6483, 2709, 58, 57, "Subsubsection"],
Cell[317343, 6543, 1363, 27, 36, "Subsubsection"],
Cell[318709, 6572, 3833, 89, 160, "Subsubtitle"],
Cell[322545, 6663, 771, 11, 48, "Subsubsection"],
Cell[323319, 6676, 4780, 117, 250, "Code"],
Cell[328102, 6795, 113, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)